Document why ok() is being used instead of like(), to stop someone

undoing it.

p4raw-id: //depot/perl@33105

1 files changed, 2 insertions, 0 deletions

diff --git a/ext/Safe/t/safe3.t b/ext/Safe/t/safe3.t
index 73c6323bce..c809f27b9c 100644
--- a/ext/Safe/t/safe3.t
+++ b/ext/Safe/t/safe3.t
@@ -30,6 +30,7 @@ $safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );
 
 # 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 @@ EOF
 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' }