diff options
author | dgp <dgp@noemail.net> | 2011-06-01 14:08:19 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-06-01 14:08:19 (GMT) |
commit | ab7332a27f2788ca950ef666d5a9b3436a3b46a3 (patch) | |
tree | 2314649261af2a2ac162041ed358f2cebc8ec8e3 | |
parent | 76ccd37aab48a88ca37b7a98884b09974712d3a9 (diff) | |
parent | b2c1d6343d8d027f74c14ae4688dcdc8606e2af3 (diff) | |
download | tcl-ab7332a27f2788ca950ef666d5a9b3436a3b46a3.zip tcl-ab7332a27f2788ca950ef666d5a9b3436a3b46a3.tar.gz tcl-ab7332a27f2788ca950ef666d5a9b3436a3b46a3.tar.bz2 |
Revised fix for bug 3309871
FossilOrigin-Name: 8da4e75d5f37d358a023d959fd3d08c75e2d091f
-rw-r--r-- | generic/tclUtil.c | 4 |
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 */ |