kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/tcltklib.c: removed deprecated safe level.

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@51160 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
hsbt 2015-07-06 09:00:21 +00:00
parent b07e78fa32
commit 415e9cef0d
2 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
Mon Jul 6 17:59:11 2015 SHIBATA Hiroshi <hsbt@ruby-lang.org>
* ext/tk/tcltklib.c: removed deprecated safe level.
Mon Jul 6 17:16:37 2015 Koichi Sasada <ko1@atdot.net>
* method.h, proc.c (rb_method_entry_location): make it static

11
ext/tk/tcltklib.c
View file

@ -3039,7 +3039,7 @@ lib_do_one_event_core(argc, argv, self, is_ip)
flags = FIX2INT(vflags);
}
if (rb_safe_level() >= 4 || (rb_safe_level() >=1 && OBJ_TAINTED(vflags))) {
if (rb_safe_level() >=1 && OBJ_TAINTED(vflags)) {
flags |= TCL_DONT_WAIT;
}
@ -3750,7 +3750,7 @@ ip_RubyExitCommand(clientData, interp, argc, argv)
Tcl_ResetResult(interp);
if (rb_safe_level() >= 4 || Tcl_IsSafe(interp)) {
if (Tcl_IsSafe(interp)) {
if (!Tcl_InterpDeleted(interp)) {
ip_finalize(interp);
@ -6125,13 +6125,6 @@ ip_init(argc, argv, self)
int with_tk = 1;
Tk_Window mainWin = (Tk_Window)NULL;
/* security check */
if (rb_safe_level() >= 4) {
rb_raise(rb_eSecurityError,
"Cannot create a TclTkIp object at level %d",
rb_safe_level());
}
/* create object */
TypedData_Get_Struct(self, struct tcltkip, &tcltkip_type, ptr);
if (DATA_PTR(self)) {