From 6e1b4d4409e68627205438f4afd1d01c4d4afee1 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 24 Jul 2012 20:14:23 +0000
Subject: Preserve the chanPtr so that script evaluation cannot invalidate it
 when we plan to use it again.

---
 generic/tclIO.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclIO.c b/generic/tclIO.c
index b9fa18d..eeca41b 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -8347,6 +8347,7 @@ TclChannelEventScriptInvoker(
      */
 
     Tcl_Preserve(interp);
+    Tcl_Preserve(chanPtr);
     result = Tcl_EvalObjEx(interp, esPtr->scriptPtr, TCL_EVAL_GLOBAL);
 
     /*
@@ -8363,6 +8364,7 @@ TclChannelEventScriptInvoker(
 	}
 	TclBackgroundException(interp, result);
     }
+    Tcl_Release(chanPtr);
     Tcl_Release(interp);
 }
 
-- 
cgit v0.12