diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
| commit | a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda (patch) | |
| tree | 5824d094039c3c2af7e448bb3946f1be10dbabe0 /ext/tcltklib/tcltklib.c | |
| parent | 8332f1d6ce368fb2258bb6c23d5f2c95622e2727 (diff) | |
| download | ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.tar.gz ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.tar.xz ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.zip | |
* 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
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |