diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-09-07 19:59:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-09-07 19:59:59 (GMT) |
| commit | 71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0 (patch) | |
| tree | cd320b20caf1467eaa8cb3540007f6fc7de98dbf /generic/tclParse.c | |
| parent | 34a2da49423f4a5836b9b4c6acd2f4f2b11f02ae (diff) | |
| download | tcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.zip tcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.tar.gz tcl-71c8cdedc9efe9c3ee31c2592cbd4cc63c6472b0.tar.bz2 | |
* generic/tclParse.c Corrected line counting error in multi-command
* tests/into.test: script substitutions. [Bug 2850901].
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index efb4422..939c5d1 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -2289,6 +2289,10 @@ TclSubstTokens( theline = line + adjust; code = TclEvalEx(interp, tokenPtr->start+1, tokenPtr->size-2, 0, theline, clNextOuter, outerScript); + + TclAdvanceLines(&line, tokenPtr->start+1, + tokenPtr->start + tokenPtr->size - 1); + /* * Restore flag reset by nested eval for future bracketed * commands and their cmdframe setup |