diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-23 21:51:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-23 21:51:12 (GMT) |
| commit | 1075137cfc201f4c0aee86f118ed0b7e44febc24 (patch) | |
| tree | 547d674b0571aca12812a4352f3de5550337667e | |
| parent | 0a2c1e30b152c1fcbd3180aadaf6b27039f07421 (diff) | |
| download | tcl-1075137cfc201f4c0aee86f118ed0b7e44febc24.zip tcl-1075137cfc201f4c0aee86f118ed0b7e44febc24.tar.gz tcl-1075137cfc201f4c0aee86f118ed0b7e44febc24.tar.bz2 | |
Fix testsuite when "string bytelength" doesn't exist.
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 4ea22d8..8ebd29e6 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -209,9 +209,9 @@ proc unknown args { set errInfo [dict get $opts -errorinfo] set errCode [dict get $opts -errorcode] set cinfo $args - if {[string bytelength $cinfo] > 150} { + if {[string length $cinfo] > 150} { set cinfo [string range $cinfo 0 150] - while {[string bytelength $cinfo] > 150} { + while {[string length $cinfo] > 150} { set cinfo [string range $cinfo 0 end-1] } append cinfo ... |