diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 23:14:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 23:14:50 (GMT) |
| commit | f86f9cf5f2da6809f0747865b3b13cba13d23fa0 (patch) | |
| tree | 05935949cd53f79190168d9fe5853054f41857d2 /tools/regexpTestLib.tcl | |
| parent | 84b9d03fb02b9ee744e03775f590d49f105d23f8 (diff) | |
| parent | 10e31bc252115c3c1a4f1892c14c875e37af6e7a (diff) | |
| download | tcl-f86f9cf5f2da6809f0747865b3b13cba13d23fa0.zip tcl-f86f9cf5f2da6809f0747865b3b13cba13d23fa0.tar.gz tcl-f86f9cf5f2da6809f0747865b3b13cba13d23fa0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tools/regexpTestLib.tcl')
| -rw-r--r-- | tools/regexpTestLib.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/regexpTestLib.tcl b/tools/regexpTestLib.tcl index d84a012..8379159 100644 --- a/tools/regexpTestLib.tcl +++ b/tools/regexpTestLib.tcl @@ -17,13 +17,13 @@ proc readInputFile {} { set len [string length $line] - if {($len > 0) && ([string index $line [expr $len - 1]] == "\\")} { + if {($len > 0) && ([string index $line [expr {$len - 1}]] == "\\")} { if {[info exists lineArray(c$i)] == 0} { set lineArray(c$i) 1 } else { incr lineArray(c$i) } - set line [string range $line 0 [expr $len - 2]] + set line [string range $line 0 [expr {$len - 2}]] append lineArray($i) $line continue } @@ -204,7 +204,7 @@ proc convertTestLine {currentLine len lineNum srcLineNum} { # find the test result - set numVars [expr $len - 3] + set numVars [expr {$len - 3}] set vars {} set vals {} set result 0 |