Change 33105 by [EMAIL PROTECTED] on 2008/01/29 10:59:14
Document why ok() is being used instead of like(), to stop someone
undoing it.
Affected files ...
... //depot/perl/ext/Safe/t/safe3.t#3 edit
Differences ...
==== //depot/perl/ext/Safe/t/safe3.t#3 (text) ====
Index: perl/ext/Safe/t/safe3.t
--- perl/ext/Safe/t/safe3.t#2~33102~ 2008-01-29 01:55:01.000000000 -0800
+++ perl/ext/Safe/t/safe3.t 2008-01-29 02:59:14.000000000 -0800
@@ -30,6 +30,7 @@
# Check that it didn't work
$safe->reval( q{$x + $y} );
+# Written this way to keep the Test::More that comes with perl 5.6.2 happy
ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
'opmask still in place with reval' );
@@ -43,6 +44,7 @@
close $fh;
$safe2->rdo('nasty.pl');
$safe2->reval( q{$x + $y} );
+# Written this way to keep the Test::More that comes with perl 5.6.2 happy
ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
'opmask still in place with rdo' );
END { unlink 'nasty.pl' }
End of Patch.
