summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-06-01 14:08:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-06-01 14:08:19 (GMT)
commit42759906725e29de1f3a76cfef2c2d21f34ecc95 (patch)
tree2314649261af2a2ac162041ed358f2cebc8ec8e3
parentffdd191a57e3105fd2a4702b0c2496b83c9e0637 (diff)
parentc31b5e030892e09c7f5bdc8538ecc09b760bab3b (diff)
downloadtcl-42759906725e29de1f3a76cfef2c2d21f34ecc95.zip
tcl-42759906725e29de1f3a76cfef2c2d21f34ecc95.tar.gz
tcl-42759906725e29de1f3a76cfef2c2d21f34ecc95.tar.bz2
Revised fix for bug 3309871
-rw-r--r--generic/tclUtil.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index f424381..6f36dad 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -408,8 +408,8 @@ TclMaxListLength(
do {
bytes++;
numBytes -= (numBytes != -1);
- } while (numBytes && (*bytes != '\0') && TclIsSpaceProc(*bytes));
- if ((numBytes == 0) || (*bytes == '\0')) {
+ } while (numBytes && TclIsSpaceProc(*bytes));
+ if ((numBytes == 0) || ((numBytes == -1) && (*bytes == '\0'))) {
break;
}
/* (*bytes) is non-space; return to counting state */