diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-30 18:58:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-30 18:58:38 (GMT) |
| commit | 3ffeb15b9839253c8e97d15d3dc2678726ba1651 (patch) | |
| tree | c58d3df2c14aad3207748db2ab9f21b664a70a33 | |
| parent | d1ba3dff8f0b5e1ca46bd9588f225c4dd882f87c (diff) | |
| download | tcl-3ffeb15b9839253c8e97d15d3dc2678726ba1651.zip tcl-3ffeb15b9839253c8e97d15d3dc2678726ba1651.tar.gz tcl-3ffeb15b9839253c8e97d15d3dc2678726ba1651.tar.bz2 | |
Oops! Don't forget nested script substitution!
| -rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 426364d..fd5991a 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -202,6 +202,9 @@ typedef struct TEBCdata { #define PUSH_TAUX_OBJ(objPtr) \ do { \ + if (auxObjList) { \ + objPtr->length += auxObjList->length; \ + } \ objPtr->internalRep.ptrAndLongRep.ptr = auxObjList; \ auxObjList = objPtr; \ } while (0) |