From 5f45a040b8b21d75a5887c8846b7d2d76994d04a Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 26 Jun 2006 09:41:34 +0000
Subject: [PATCH] * ext/tk/tcltklib.c (ip_delete): fix SEGV when a slave-ip is
 deleted   on callback.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10396 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog         | 5 +++++
 ext/tk/tcltklib.c | 2 --
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 58f842bbaf..af07dc18f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jun 26 18:37:44 2006  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tcltklib.c (ip_delete): fix SEGV when a slave-ip is
+	  deleted on callback.
+
 Mon Jun 26 10:47:42 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* io.c (pipe_open): avoid closing uninitialized file descriptors.
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index e43b98e2c1..b9e8591250 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -5269,8 +5269,6 @@ ip_delete(self)
     Tcl_DeleteInterp(ptr->ip);
     Tcl_Release(ptr->ip);
 
-    ptr->ip = (Tcl_Interp*)NULL;
-
     rb_thread_critical = thr_crit_bup;
 
     return Qnil;