Description: |
(text/x-fossil-wiki)
The following script causes build trunk to abort:
<blockquote><code><verbatim>
set chan [file tempfile];
fconfigure $chan -encoding binary
puts -nonewline $chan \x81\x1A
flush $chan
seek $chan 0
chan configure $chan -encoding utf-8 -profile strict
read $chan 1
</verbatim></code></blockquote>
Output:
<blockquote><code><verbatim>
/path/to/tcl9.0/generic/tclIO.c:6154: DoReadChars: Assertion `!GotFlag(statePtr, CHANNEL_EOF) || GotFlag(statePtr, CHANNEL_STICKY_EOF) || GotFlag(statePtr, CHANNEL_ENCODING_ERROR) || Tcl_InputBuffered((Tcl_Channel)chanPtr) == 0' failed.
</verbatim></code></blockquote>
|