Suppress warnings

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

2 files changed, 10 insertions, 4 deletions

diff --git a/spec/ruby/core/string/split_spec.rb b/spec/ruby/core/string/split_spec.rb
index 0c82ef8c58..7d5a591790 100644
--- a/spec/ruby/core/string/split_spec.rb
+++ b/spec/ruby/core/string/split_spec.rb
@@ -66,6 +66,8 @@ describe "String#split with String" do
 
   it "defaults to $; when string isn't given or nil" do
     begin
+      verbose = $VERBOSE
+      $VERBOSE = nil
       old_fs = $;
 
       [",", ":", "", "XY", nil].each do |fs|
@@ -84,6 +86,7 @@ describe "String#split with String" do
       end
     ensure
       $; = old_fs
+      $VERBOSE = verbose
     end
   end
 
@@ -239,6 +242,8 @@ describe "String#split with Regexp" do
 
   it "defaults to $; when regexp isn't given or nil" do
     begin
+      verbose = $VERBOSE
+      $VERBOSE = nil
       old_fs = $;
 
       [/,/, /:/, //, /XY/, /./].each do |fs|
@@ -257,6 +262,7 @@ describe "String#split with Regexp" do
       end
     ensure
       $; = old_fs
+      $VERBOSE = verbose
     end
   end
 
diff --git a/spec/ruby/library/English/English_spec.rb b/spec/ruby/library/English/English_spec.rb
index 32941924eb..45ce7ab322 100644
--- a/spec/ruby/library/English/English_spec.rb
+++ b/spec/ruby/library/English/English_spec.rb
@@ -25,18 +25,18 @@ describe "English" do
 
   it "aliases $FS to $;" do
     original = $;
-    $; = ","
+    suppress_warning {$; = ","}
     $FS.should_not be_nil
     $FS.should == $;
-    $; = original
+    suppress_warning {$; = original}
   end
 
   it "aliases $FIELD_SEPARATOR to $;" do
     original = $;
-    $; = ","
+    suppress_warning {$; = ","}
     $FIELD_SEPARATOR.should_not be_nil
     $FIELD_SEPARATOR.should == $;
-    $; = original
+    suppress_warning {$; = original}
   end
 
   it "aliases $OFS to $," do