diff options
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 02940e7..20248a9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6152,7 +6152,11 @@ TclNREvalObjEx( */ Tcl_IncrRefCount(objPtr); - listPtr = TclListObjCopy(interp, objPtr); + listPtr = TclDuplicatePureObj(interp, objPtr, &tclListType.objType); + if (!listPtr) { + Tcl_DecrRefCount(objPtr); + return TCL_ERROR; + } Tcl_IncrRefCount(listPtr); if (word != INT_MIN) { |