diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2014-12-03 23:27:45 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2014-12-03 23:27:45 (GMT) |
| commit | 832c28c7d1a73430e8bd0e33c71ffbc846e0a6cf (patch) | |
| tree | 9a203d3a9e14deb246b13b2b17d6bf121aafd7b5 /generic/tclCompCmds.c | |
| parent | 9e5f0ade58641b9719e70838d98e562c867193dd (diff) | |
| parent | 3e76a216e3a989a6dbaefd832a0a2dc795672e2e (diff) | |
| download | tcl-832c28c7d1a73430e8bd0e33c71ffbc846e0a6cf.zip tcl-832c28c7d1a73430e8bd0e33c71ffbc846e0a6cf.tar.gz tcl-832c28c7d1a73430e8bd0e33c71ffbc846e0a6cf.tar.bz2 | |
fix var($) problem, bug [0c043a175] (thx dgp)
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 18f4564..4e7ef97 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3373,7 +3373,7 @@ TclPushVarName( nameChars = p - varTokenPtr[1].start; elName = p + 1; remainingChars = (varTokenPtr[2].start - p) - 1; - elNameChars = (varTokenPtr[n].start-p) + varTokenPtr[n].size - 2; + elNameChars = (varTokenPtr[n].start-p) + varTokenPtr[n].size - 1; if (remainingChars) { /* |