Author: mdiep Date: Mon Nov 14 11:18:00 2005 New Revision: 9972 Modified: trunk/languages/tcl/lib/commands/string.pir Log: tcl: Convert patterns to utf8 instead of ascii when using PGE::Glob (allow unicode patterns)
Modified: trunk/languages/tcl/lib/commands/string.pir ============================================================================== --- trunk/languages/tcl/lib/commands/string.pir (original) +++ trunk/languages/tcl/lib/commands/string.pir Mon Nov 14 11:18:00 2005 @@ -180,9 +180,8 @@ 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 + $I0 = find_encoding 'utf8' + trans_encoding pattern, $I0 the_string = downcase the_string match_continue:
