Make this test pass with the Test::More that comes with perl 5.6.2

p4raw-id: //depot/perl@33102

diff --git a/ext/Safe/t/safe3.t b/ext/Safe/t/safe3.t
index 2d5f275..73c6323 100644 (file)
--- a/ext/Safe/t/safe3.t
+++ b/ext/Safe/t/safe3.t
@@ -1,4 +1,4 @@
-#!perl
+#!perl -w
 
 BEGIN {
     if ($ENV{PERL_CORE}) {
@@ -30,7 +30,7 @@ $safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );
 
 # Check that it didn't work
 $safe->reval( q{$x + $y} );
-like( $@, qr/^'?addition \(\+\)'? trapped by operation mask/,
+ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
            'opmask still in place with reval' );
 
 my $safe2 = new Safe;
@@ -43,6 +43,6 @@ EOF
 close $fh;
 $safe2->rdo('nasty.pl');
 $safe2->reval( q{$x + $y} );
-like( $@, qr/^'?addition \(\+\)'? trapped by operation mask/,
+ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
            'opmask still in place with rdo' );
 END { unlink 'nasty.pl' }