* eval.c (block_pass): should not pass tainted block, if $SAFE > 0.

* variable.c (rb_mod_remove_cvar): should pass the char*.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_6@1995 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 1 insertions, 3 deletions

diff --git a/parse.y b/parse.y
index 057035bf1f..c16f513abc 100644
--- a/parse.y
+++ b/parse.y
@@ -4090,9 +4090,7 @@ gettable(id)
 	return NEW_FALSE();
     }
     else if (id == k__FILE__) {
-	VALUE f = rb_str_new2(ruby_sourcefile);
-	OBJ_FREEZE(f);
-	return NEW_STR(f);
+	return NEW_STR(rb_str_new2(ruby_sourcefile));
     }
     else if (id == k__LINE__) {
 	return NEW_LIT(INT2FIX(ruby_sourceline));