summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1998-10-13 20:05:38 (GMT)
committerrjohnson <rjohnson>1998-10-13 20:05:38 (GMT)
commit34fd6003c9fe9da83ffe806108ebbd4bbffb796e (patch)
treebda58da65373a532cb5f7c35c63d67fd5c993e59 /generic/tclCmdIL.c
parent70f31cd5c93f7fc20debf6d0547326c3f40d2cc2 (diff)
downloadtcl-34fd6003c9fe9da83ffe806108ebbd4bbffb796e.zip
tcl-34fd6003c9fe9da83ffe806108ebbd4bbffb796e.tar.gz
tcl-34fd6003c9fe9da83ffe806108ebbd4bbffb796e.tar.bz2
Fixed bug in "lsort -dictionary" that caused problems when comparing
numbers that started with 0.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index a1e6894..05d09ae 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.8 1998/10/13 18:44:16 rjohnson Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.9 1998/10/13 20:05:39 rjohnson Exp $
*/
#include "tclInt.h"
@@ -2861,11 +2861,11 @@ DictionaryCompare(left, right)
*/
zeros = 0;
- while ((*right == '0') && (*(right + 1) != '\0')) {
+ while ((*right == '0') && (isdigit(UCHAR(right[1])))) {
right++;
zeros--;
}
- while ((*left == '0') && (*(left + 1) != '\0')) {
+ while ((*left == '0') && (isdigit(UCHAR(left[1])))) {
left++;
zeros++;
}