From 03f2ab38fee4863f2ea67292b07ca9cc56ddee48 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 28 May 2013 14:29:01 +0000
Subject: Plug the memory leak.  Greater ambitions to improve this routine are
 proving more difficult than expected.

---
 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