projects
/
scpubgit/TenDotTcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
counter connection tests
[scpubgit/TenDotTcl.git]
/
ten
/
ten.tcl
diff --git
a/ten/ten.tcl
b/ten/ten.tcl
index
a093a97
..
3abe931
100644
(file)
--- a/
ten/ten.tcl
+++ b/
ten/ten.tcl
@@
-241,7
+241,7
@@
snit::type ten::read_channel {
}
} else {
if [llength $options(-on_line_call)] {
- while {[llength [set line [gets $chan]]] > 0} {
+ while {[string length [set line [gets $chan]]] > 0} {
eval [concat $options(-on_line_call) [ list $line ]]
}
}