From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 29 Jan 2008 09:55:01 +0000 (+0000)
Subject: Make this test pass with the Test::More that comes with perl 5.6.2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a823c1420312961bad15bc476b3491938f28870;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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' }