diff options
| author | kjnash <k.j.nash@usa.net> | 2023-12-20 10:08:19 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2023-12-20 10:08:19 (GMT) |
| commit | 73d10ea85f625bc39e9fd48d2dfa34668b6910c8 (patch) | |
| tree | 92c370e19624746c211bfff2e1b7fcf0ba92a4c6 /generic | |
| parent | 6cc6c680eab743827028033e485e9f380c2b13a4 (diff) | |
| parent | a38fd9b4891b61be086f838c00a78c936cf58a6d (diff) | |
| download | tcl-73d10ea85f625bc39e9fd48d2dfa34668b6910c8.zip tcl-73d10ea85f625bc39e9fd48d2dfa34668b6910c8.tar.gz tcl-73d10ea85f625bc39e9fd48d2dfa34668b6910c8.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic')
| -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. |