diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-12 11:32:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-12 11:32:52 (GMT) |
| commit | 8bf2e2ace2224e4066dfe647f47b531591fe8666 (patch) | |
| tree | 4becc0649a1a93fdf782d09fc13c6a065fe60bef /library | |
| parent | b7f151f1268d4b49953da193f135d52e6e52f841 (diff) | |
| download | tcl-8bf2e2ace2224e4066dfe647f47b531591fe8666.zip tcl-8bf2e2ace2224e4066dfe647f47b531591fe8666.tar.gz tcl-8bf2e2ace2224e4066dfe647f47b531591fe8666.tar.bz2 | |
Forgot that \x00 is not printable anyway
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 19b7d64..6cb7d92 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -1154,7 +1154,7 @@ proc tcltest::Asciify {s} { set print "" foreach c [split $s ""] { set i [scan $c %c] - if {[string is print $c] && ($i <= 127) && ($i > 0)} { + if {[string is print $c] && ($i <= 127)} { append print $c } elseif {$i <= 0xFF} { append print \\x[format %02X $i] |