From 9c7c117d505704f20846ee7c7f2edb7e595366dc Mon Sep 17 00:00:00 2001 From: nagai Date: Sun, 6 Mar 2005 15:03:02 +0000 Subject: [PATCH] * ext/tk/tcltklib.c: fail to call TclTkLib.mainloop when $SAFE==4 git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8091 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ ext/tk/tcltklib.c | 1 + 2 files changed, 5 insertions(+) diff --git a/ChangeLog b/ChangeLog index 1e32e0f74a..bee6b3644b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Mon Mar 7 00:01:55 2005 Hidetoshi NAGAI + + * ext/tk/tcltklib.c: fail to call TclTkLib.mainloop when $SAFE==4 + Sun Mar 6 13:04:10 2005 Dee Zsombor * misc/ruby-electric.el: added. diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index 14e8199d89..6bc8c3185f 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -8394,6 +8394,7 @@ Init_tcltklib() #define DEFAULT_EVENTLOOP_DEPTH 7 #endif eventloop_stack = rb_ary_new2(DEFAULT_EVENTLOOP_DEPTH); + OBJ_TAINT(eventloop_stack); watchdog_thread = Qnil;