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 (file)
--- 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);