merge 8.7

tcltk · Dec 13, 2023 · ba3c71b · ba3c71b
2 parents c75fecf + 6738c19
commit ba3c71b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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.