Subject: Plug the memory leak. Greater ambitions to improve this routine are proving more difficult than expected.

From: dgp <[email-masked]>
Date: Tue, 28 May 2013 14:29:01 +0000

---
 generic/tclCompCmds.c | 1 +
 1 file changed, 1 insertion(+)

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;
     }
     /*
-- 
cgit v0.12