From 5be660ed63626e584d77e8c41c883fcc16ddb0e0 Mon Sep 17 00:00:00 2001
From: andreask <andreask>
Date: Thu, 16 Dec 2010 13:38:48 +0000
Subject: while 'info' is destroyed and becoms inaccessible after TclEvalObjEx.

---
 generic/tclCmdMZ.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 7809902..0e0adca 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -4337,7 +4337,7 @@ TryPostBody(
 
 	Tcl_ListObjGetElements(NULL, handlersObj, &numHandlers, &handlers);
 	for (i=0 ; i<numHandlers ; i++) {
-	    Tcl_Obj *handlerBodyObj;
+	    Tcl_Obj *handlerBodyObj, *kindObj;
 
 	    Tcl_ListObjGetElements(NULL, handlers[i], &dummy, &info);
 	    if (!found) {
@@ -4438,12 +4438,13 @@ TryPostBody(
 	     */
 
 	    handlerBodyObj = info[4];
+	    kindObj        = info[0];
 
 	    Tcl_DecrRefCount(handlersObj);
 	    result = TclEvalObjEx(interp, handlerBodyObj, 0,
 				  ((Interp *) interp)->cmdFramePtr, 4*i + 5);
 
-	    return TryPostHandler (objv, options, info[0],
+	    return TryPostHandler (objv, options, kindObj,
 				   finallyObj == NULL ? 0 : objc - 1,
 				   interp, result);
 
-- 
cgit v0.12