Silence warnings in test with 5.10.0

1 files changed, 3 insertions, 0 deletions

diff --git a/ext/Safe/t/safeuniversal.t b/ext/Safe/t/safeuniversal.t
index d37d7ca146..5ef384262d 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");
 !);