summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-03-24 21:54:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-03-24 21:54:10 (GMT)
commit658bfb282ce6fcba3cdf53d7448e7fa3e3fa05ac (patch)
tree12d7260cfbaa9c980ef4a74ae6c7798f7bb968cc /generic
parent82535bcc54c1cbe004c83beec30fc0cc27772fc2 (diff)
downloadtcl-658bfb282ce6fcba3cdf53d7448e7fa3e3fa05ac.zip
tcl-658bfb282ce6fcba3cdf53d7448e7fa3e3fa05ac.tar.gz
tcl-658bfb282ce6fcba3cdf53d7448e7fa3e3fa05ac.tar.bz2
Silly bug found originally by Damon Courtney. [922752]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclNamesp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index a4c4f2e..ded1f96 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -21,7 +21,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.36 2004/03/18 18:54:58 rmax Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.37 2004/03/24 21:54:32 dkf Exp $
*/
#include "tclInt.h"
@@ -4880,7 +4880,7 @@ NsEnsembleImplementationCmd(clientData, interp, objc, objv)
goto unknownOrAmbiguousSubcommand;
}
fullName = ensemblePtr->subcommandArrayPtr[i];
- } else if (cmp == 1) {
+ } else if (cmp < 0) {
/*
* Because we are searching a sorted table, we can now
* stop searching because we have gone past anything