From ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 16 Apr 2013 20:18:19 +0000
Subject: 3610404 When we let go of commandPtr in TclEvalObjvInternal, NULL out
 the variable so we don't mistakenly try to use the value later after we freed
 it.

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

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index cfb5c43..d3b5490 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -3652,6 +3652,7 @@ TclEvalObjvInternal(
 	    checkTraces = 0;
 	    if (commandPtr) {
 		Tcl_DecrRefCount(commandPtr);
+		commandPtr = NULL;
 	    }
 	    goto reparseBecauseOfTraces;
 	}
-- 
cgit v0.12