diff options
author | dgp <dgp@users.sourceforge.net> | 2023-12-13 16:55:10 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2023-12-13 16:55:10 (GMT) |
commit | ba3c71b6961fea43e06e2d23c95d95fcdcf8c1b0 (patch) | |
tree | c55d951784c0f5f2419f91060210cfbfbac0ce03 /generic/tclIOCmd.c | |
parent | c75fecf442debfb32e4c6236c81952e13626d8c7 (diff) | |
parent | 6738c19e8a8fd9fa35867ece49a1ef7121fd81ea (diff) | |
download | tcl-ba3c71b6961fea43e06e2d23c95d95fcdcf8c1b0.zip tcl-ba3c71b6961fea43e06e2d23c95d95fcdcf8c1b0.tar.gz tcl-ba3c71b6961fea43e06e2d23c95d95fcdcf8c1b0.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclIOCmd.c')
-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 40cf074..92a84b2 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -438,6 +438,8 @@ Tcl_ReadObjCmd( returnOptsPtr = Tcl_NewDictObj(); Tcl_DictObjPut(NULL, returnOptsPtr, Tcl_NewStringObj("-data", -1), resultPtr); + } else { + Tcl_DecrRefCount(resultPtr); } /* * TIP #219. |