diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-21 09:27:15 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-21 09:27:15 (GMT) |
commit | f193acf08ce4f3fe6db1cb79ab3589d037e5853c (patch) | |
tree | afc89006f3988a24590c5ae650312ddb2bbf5231 /generic/tclCmdMZ.c | |
parent | bf486a2007f9d3d45855d43e623ad85d29bcd0b7 (diff) | |
download | tcl-f193acf08ce4f3fe6db1cb79ab3589d037e5853c.zip tcl-f193acf08ce4f3fe6db1cb79ab3589d037e5853c.tar.gz tcl-f193acf08ce4f3fe6db1cb79ab3589d037e5853c.tar.bz2 |
Proposed solution for 3613609: lsort -nocase does not sort non-ASCII correctly
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 0ad77aa..6fd468c 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3436,7 +3436,7 @@ Tcl_SwitchObjCmd( i++; goto finishedOptions; case OPT_NOCASE: - strCmpFn = strcasecmp; + strCmpFn = TclUtfCasecmp; noCase = 1; break; |