Change 33102 by [EMAIL PROTECTED] on 2008/01/29 09:55:01
Make this test pass with the Test::More that comes with perl 5.6.2
Affected files ...
... //depot/perl/ext/Safe/t/safe3.t#2 edit
Differences ...
==== //depot/perl/ext/Safe/t/safe3.t#2 (text) ====
Index: perl/ext/Safe/t/safe3.t
--- perl/ext/Safe/t/safe3.t#1~20269~ 2003-07-28 08:07:22.000000000 -0700
+++ perl/ext/Safe/t/safe3.t 2008-01-29 01:55:01.000000000 -0800
@@ -1,4 +1,4 @@
-#!perl
+#!perl -w
BEGIN {
if ($ENV{PERL_CORE}) {
@@ -30,7 +30,7 @@
# 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 @@
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' }
End of Patch.
