diff options
author | dkf <dkf@noemail.net> | 2002-01-02 13:52:02 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-01-02 13:52:02 (GMT) |
commit | bae0f037885faa64524573c38a73893f16d9506e (patch) | |
tree | a705d6a0587c54ed5536496f94e042dd0c53b62c /generic/tclUtf.c | |
parent | 2f1e8650b2e3c8131d88e68a4483d621fb7bac0e (diff) | |
download | tcl-bae0f037885faa64524573c38a73893f16d9506e.zip tcl-bae0f037885faa64524573c38a73893f16d9506e.tar.gz tcl-bae0f037885faa64524573c38a73893f16d9506e.tar.bz2 |
Fixed fault with case-insensitive string matching (Bug#233257) and rewrote
some tests to test what they claimed to be testing.
FossilOrigin-Name: 99e550c5bedfd5ee619bd6cf81b9ee09b8545f7e
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r-- | generic/tclUtf.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 17990db..5bdf557 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtf.c,v 1.19 2001/10/16 05:31:19 dgp Exp $ + * RCS: @(#) $Id: tclUtf.c,v 1.20 2002/01/02 13:52:04 dkf Exp $ */ #include "tclInt.h" @@ -1691,6 +1691,9 @@ Tcl_UniCharCaseMatch(string, pattern, nocase) if (p == 0) { return 1; } + if (nocase) { + p = Tcl_UniCharToLower(p); + } while (1) { /* * Optimization for matching - cruise through the string |