From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 28 Jun 2009 14:18:27 +0000 (+0200)
Subject: Silence warnings in test with 5.10.0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40b9d4d925a92009ab916e8557c333c6e9e5d0ca;p=p5sagit%2Fp5-mst-13.2.git

Silence warnings in test with 5.10.0
---

diff --git a/ext/Safe/t/safeuniversal.t b/ext/Safe/t/safeuniversal.t
index d37d7ca..5ef3842 100644
--- a/ext/Safe/t/safeuniversal.t
+++ b/ext/Safe/t/safeuniversal.t
@@ -14,6 +14,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test::More;
 use Safe;
 plan(tests => 6);
@@ -22,6 +23,7 @@ my $c = new Safe;
 $c->permit(qw(require caller));
 
 my $r = $c->reval(q!
+    no warnings 'redefine';
     sub UNIVERSAL::isa { "pwned" }
     (bless[],"Foo")->isa("Foo");
 !);
@@ -32,6 +34,7 @@ is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" );
 sub Foo::foo {}
 
 $r = $c->reval(q!
+    no warnings 'redefine';
     sub UNIVERSAL::can { "pwned" }
     (bless[],"Foo")->can("foo");
 !);