diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclListObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 53c3f66..85737d5 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -967,6 +967,10 @@ Tcl_ListObjReplace( if (listRepPtr == NULL) { listRepPtr = AttemptNewList(interp, numRequired, NULL); if (listRepPtr == NULL) { + for (i = 0; i < objc; i++) { + /* See bug 3598580 */ + Tcl_DecrRefCount(objv[i]); + } return TCL_ERROR; } } |