diff options
author | dgp <dgp@noemail.net> | 2009-09-07 19:59:59 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2009-09-07 19:59:59 (GMT) |
commit | caf5cb301f06ed9ba124e785e6f11348451bddfb (patch) | |
tree | cd320b20caf1467eaa8cb3540007f6fc7de98dbf /generic/tclParse.c | |
parent | 92e2733a343007237f801d876c98c39d6fdfd9a2 (diff) | |
download | tcl-caf5cb301f06ed9ba124e785e6f11348451bddfb.zip tcl-caf5cb301f06ed9ba124e785e6f11348451bddfb.tar.gz tcl-caf5cb301f06ed9ba124e785e6f11348451bddfb.tar.bz2 |
* generic/tclParse.c Corrected line counting error in multi-command
* tests/into.test: script substitutions. [Bug 2850901].
FossilOrigin-Name: 26367d8d40b0e1414c0652cd0ed168e5f1448fac
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 |