* eval.c (rb_call0): wrong condition for $SAFE restoration.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@9064 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 531380405..c040d0627 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Sep  1 17:11:25 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* eval.c (rb_call0): wrong condition for $SAFE restoration.
+
 Thu Sep  1 14:12:45 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/multi-tk.rb: On Tcl8.5, MultiTkIp#invoke_hidden doesn't 
diff --git a/eval.c b/eval.c
index 159f754c1..f1f8fd8a5 100644
--- a/eval.c
+++ b/eval.c
@@ -5806,7 +5806,7 @@ rb_call0(klass, recv, id, oid, argc, argv, body, flags)
 	    POP_CLASS();
 	    POP_SCOPE();
 	    ruby_cref = saved_cref;
-	    if (safe > 0) ruby_safe_level = safe;
+	    if (safe >= 0) ruby_safe_level = safe;
 	    if (event_hooks) {
 		EXEC_EVENT_HOOK(RUBY_EVENT_RETURN, body, recv, id, klass);
 	    }