diff options
-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. |