Author: coke Date: Wed Nov 9 13:45:28 2005 New Revision: 9872 Modified: trunk/languages/tcl/lib/commands/string.pir Log: Did the test for this *ever* work?
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Wed Nov 9 13:45:28 2005 @@ -179,8 +179,8 @@ match_next: pattern = argv[0] the_string = argv[1] unless nocase goto match_continue - pattern = downcase pattern - pattern = downcase the_string + pattern = downcase pattern + the_string = downcase the_string match_continue: .local pmc globber
