Posted to tcl by dgood` at Mon Dec 03 16:14:05 GMT 2018view pretty

# tclsh 
% set chan [socket 10.64.0.51 58055]
sock5
% chan config $chan -blocking 0 -buffering line
% puts $chan ruok
% gets $chan line
2
% set line
OK
% chan eof $chan
0
% chan eof $chan
0
% gets $chan line
-1
% chan eof $chan
(hangs for longer than I was willing to wait)