From a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 30 Jul 2003 04:36:29 +0000
Subject: * additional check of Tk interpreters' status for a little more
 safety

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4226 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext/tcltklib/tcltklib.c')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 12629a423..ec00cea21 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -1020,7 +1020,7 @@ ip_invoke_real(argc, argv, obj)
 
     /* exception on mainloop */
     if (ptr->return_value == TCL_ERROR) {
-	if (event_loop_abort_on_exc > 0) {
+	if (event_loop_abort_on_exc > 0 && !Tcl_InterpDeleted(ptr->ip)) {
 	    rb_raise(rb_eRuntimeError, "%s", ptr->ip->result);
 	} else {
 	    if (event_loop_abort_on_exc < 0) {
-- 
cgit