From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Aug 2003 09:59:16 +0000 (+0000)
Subject: returning would be good, too.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd9784a1ca62fbb854a3338c1d775fba4fc0f385;p=p5sagit%2Fp5-mst-13.2.git

returning would be good, too.

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

diff --git a/ext/Safe/t/safeops.t b/ext/Safe/t/safeops.t
index 525ee97..c990b6a 100644
--- a/ext/Safe/t/safeops.t
+++ b/ext/Safe/t/safeops.t
@@ -41,7 +41,7 @@ close $fh;
 sub testop {
     my ($op, $opname, $code) = @_;
     pass("$op : skipped") and return if $code =~ /^SKIP/;
-    pass("$op : skipped") if $code =~ m://: && $] < 5.009;
+    pass("$op : skipped") and return if $code =~ m://: && $] < 5.009; # no dor
     my $c = new Safe;
     $c->deny_only($op);
     $c->reval($code);