diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:37:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:37:35 (GMT) |
| commit | bf055cc0d8bd85fe77feac05766fe8b5dea46a87 (patch) | |
| tree | b40b51349258acc7f261d911aaf23aebd505cca3 /generic/tclUtil.c | |
| parent | 32a76688f63ce4b8af7a8c1e6ef82444cd549f7f (diff) | |
| download | tcl-bf055cc0d8bd85fe77feac05766fe8b5dea46a87.zip tcl-bf055cc0d8bd85fe77feac05766fe8b5dea46a87.tar.gz tcl-bf055cc0d8bd85fe77feac05766fe8b5dea46a87.tar.bz2 | |
Bug fix
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); |