* ext/tcltklib/tcltklib.c: fail to call TclTkLib.mainloop when $SAFE==4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8092 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2005-03-06 15:03:42 +00:00
parent 5e4004fa1d
commit 1ee1686497
2 changed files with 5 additions and 0 deletions

View file

@ -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;