* 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

@@ -1,3 +1,7 @@
+Mon Mar  7 00:01:55 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tcltklib.c: fail to call TclTkLib.mainloop when $SAFE==4
+
 Sun Mar  6 13:04:10 2005  Dee Zsombor  <zsombor@ruby-lang.org>
 
 	* misc/ruby-electric.el: added.

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;