Author: coke Date: Sat Aug 6 06:09:33 2005 New Revision: 8843 Modified: trunk/languages/tcl/lib/commands/string.pir Log: tcl: [string match -nocase]
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 06:09:33 2005 @@ -213,8 +213,6 @@ bad_range: .local pmc retval - # XXX PGE doesn't support -nocase yet, we don't either. - # ?-nocase? pattern string .local int nocase nocase = 0 if argc == 2 goto match_next
