diff options
author | dgp <dgp@users.sourceforge.net> | 2023-12-13 16:29:49 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2023-12-13 16:29:49 (GMT) |
commit | de8f222a10ef943b4f13904442f1b92efe53c1c2 (patch) | |
tree | 2bfddc88544c67d43c9eeb2479c507893458001f | |
parent | d496052a34bbda34cb690042c3c7d1c5b42e7f24 (diff) | |
download | tcl-de8f222a10ef943b4f13904442f1b92efe53c1c2.zip tcl-de8f222a10ef943b4f13904442f1b92efe53c1c2.tar.gz tcl-de8f222a10ef943b4f13904442f1b92efe53c1c2.tar.bz2 |
[f6f93c3b39] Missing refcount decrement to cleanup read space on io error.
-rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 9667419..808ce97 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -464,6 +464,8 @@ Tcl_ReadObjCmd( returnOptsPtr = Tcl_NewDictObj(); Tcl_DictObjPut(NULL, returnOptsPtr, Tcl_NewStringObj("-data", -1), resultPtr); + } else { + Tcl_DecrRefCount(resultPtr); } /* * TIP #219. |