diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:39:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:39:12 (GMT) |
| commit | c942ef369bab61550b2904337f031f958da3b28e (patch) | |
| tree | b40b51349258acc7f261d911aaf23aebd505cca3 /generic/tclUtil.c | |
| parent | cf9fc355f851761768c2eba9e991682558c20f48 (diff) | |
| parent | bf055cc0d8bd85fe77feac05766fe8b5dea46a87 (diff) | |
| download | tcl-c942ef369bab61550b2904337f031f958da3b28e.zip tcl-c942ef369bab61550b2904337f031f958da3b28e.tar.gz tcl-c942ef369bab61550b2904337f031f958da3b28e.tar.bz2 | |
[26649439c7] EIAS bug in [concat]
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index d7e0168..086b03b 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1859,7 +1859,8 @@ Tcl_ConcatObj( TclListObjGetElements(NULL, objPtr, &listc, &listv); if (listc) { if (resPtr) { - if (TCL_OK != Tcl_ListObjReplace(NULL, resPtr, + if (Tcl_GetString(listv[0])[0] == '#' + || TCL_OK != Tcl_ListObjReplace(NULL, resPtr, INT_MAX, 0, listc, listv)) { /* Abandon ship! */ Tcl_DecrRefCount(resPtr); |