From d21c0a8aa8925c53e28bd8150874092356620f65 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Tue, 1 Mar 2011 19:26:03 +0000
Subject: * generic/tclExecute.c (ExprObjCallback): fix object leak

---
 ChangeLog            | 2 ++
 generic/tclExecute.c | 1 -
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 548e8183e..c091aab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2011-03-01  Miguel Sofer  <msofer@users.sf.net>
 
+	* generic/tclExecute.c (ExprObjCallback): fix object leak
+
 	* generic/tclExecute.c (TEBCresume): store local var array and
 	constants in automatic vars to reduce indirection, slight perf
 	increase 
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index e2c873e..aa0c8b7 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -1407,7 +1407,6 @@ ExprObjCallback(
 
     if (result == TCL_OK) {
 	TclSetDuplicateObj(resultPtr, Tcl_GetObjResult(interp));
-	Tcl_IncrRefCount(resultPtr);
 	Tcl_SetObjResult(interp, saveObjPtr);
     }
     TclDecrRefCount(saveObjPtr);
-- 
cgit v0.12