Author: coke Date: Fri Nov 11 09:43:45 2005 New Revision: 9905 Modified: trunk/languages/tcl/lib/commands/string.pir Log: PGE::Glob's rules must currently be ascii. This fixes the one test that was failing as a result.
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Fri Nov 11 09:43:45 2005 @@ -180,6 +180,9 @@ match_next: the_string = argv[1] unless nocase goto match_continue pattern = downcase pattern + # XXX PGE::Glob Can't deal with non-ascii rules ATM. + $I0 = find_charset 'ascii' + trans_charset pattern, $I0 the_string = downcase the_string match_continue:
