summaryrefslogtreecommitdiff
path: root/ext/Safe/t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Safe/t')
-rw-r--r--ext/Safe/t/safeuniversal.t3
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");
!);