summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r--generic/tclCompCmds.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 8c88649..a325954 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -285,6 +285,7 @@ TclCompileArraySetCmd(
PushVarNameWord(interp, varTokenPtr, envPtr, TCL_NO_ELEMENT,
&localIndex, &simpleVarName, &isScalar, 1);
if (!isScalar) {
+ Tcl_DecrRefCount(literalObj);
return TCL_ERROR;
}
/*