diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-06-01 13:14:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-06-01 13:14:20 (GMT) |
| commit | c31b5e030892e09c7f5bdc8538ecc09b760bab3b (patch) | |
| tree | 86b778d135c98a1c2481ff146c55b00ffc2c4e87 | |
| parent | ab1ff5f9d6a78c586f81d6c274544cb5b4c45b92 (diff) | |
| download | tcl-c31b5e030892e09c7f5bdc8538ecc09b760bab3b.zip tcl-c31b5e030892e09c7f5bdc8538ecc09b760bab3b.tar.gz tcl-c31b5e030892e09c7f5bdc8538ecc09b760bab3b.tar.bz2 | |
Revised fix for bug 3309871
| -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 9a23291..f5c2926 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -409,8 +409,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 */ |