From 1ee1686497fbc2bc457227a0079a32b2447a77dc Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 6 Mar 2005 15:03:42 +0000
Subject: * 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
---
 ext/tcltklib/tcltklib.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ext')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index ff374b07d4..aae7ac5486 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/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;
 
-- 
cgit v1.2.3