Tcl Source Code

In [4a7397e0b3] it was reported that sync fcopy buffers input, but the example provided was only for the ReadBytes() case, and only that branch in the code was fixed. The following script shows that the issue still exists for the ReadChars() branch, waiting forever for read() to return:

file delete $path(output)
set f1 [open $path(output) w]
puts -nonewline $f1 {
    chan configure stdin -encoding iso8859-1 -translation lf -buffering none
    fcopy stdin stdout
}
close $f1
set f1 [open "|[list [info nameofexecutable] $path(output)]" r+]
try {
    chan configure $f1  -buffering none
    puts -nonewline $f1 A
    set ch [read $f1 1]
} finally {
    if {$f1 in [chan names]} {
	close $f1
    }
}
lindex $ch