mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-22 16:18:28 -05:00
Cluster test: helpers/onlydots.tcl: detect EOF and exit.
This commit is contained in:
parent
5b47783d77
commit
908be1dbeb
@ -7,7 +7,9 @@ fconfigure stdin -buffering none
|
||||
|
||||
while 1 {
|
||||
set c [read stdin 1]
|
||||
if {$c eq {.}} {
|
||||
if {$c eq {}} {
|
||||
exit 0; # EOF
|
||||
} elseif {$c eq {.}} {
|
||||
puts -nonewline .
|
||||
flush stdout
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user