diff options
Diffstat (limited to 'ext/tk/tcltklib.c')
-rw-r--r-- | ext/tk/tcltklib.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index f3278f2a94..7b547b79d1 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -3049,11 +3049,7 @@ lib_do_one_event_core(argc, argv, self, is_ip) flags = TCL_ALL_EVENTS | TCL_DONT_WAIT; } else { Check_Type(vflags, T_FIXNUM); - flags = FIX2INT(vflags); - } - - if (rb_safe_level() >=1 && OBJ_TAINTED(vflags)) { - flags |= TCL_DONT_WAIT; + flags = (int)FIX2LONG(vflags); } if (is_ip) { |