Author: coke Date: Sat Aug 6 01:05:02 2005 New Revision: 8836 Modified: trunk/languages/tcl/lib/commands/string.pir Log: tcl: 3 more [string map] tests
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Sat Aug 6 01:05:02 2005 @@ -318,6 +318,7 @@ inner_loop: if mappos >= maplen goto inner_done mapstr = map_list[mappos] mapstrlen = length mapstr + if mapstrlen == 0 goto inner_next teststr = substr the_string, strpos, mapstrlen # if nocase, tweak 'em both to lc.
