From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 29 Jan 2008 10:59:14 +0000 (+0000)
Subject: Document why ok() is being used instead of like(), to stop someone
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3c3bebb639496b8bdce5d7c639ea5632d85fc99;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@33105
---

diff --git a/ext/Safe/t/safe3.t b/ext/Safe/t/safe3.t
index 73c6323..c809f27 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' }