Change 20640 by [EMAIL PROTECTED] on 2003/08/12 09:59:16
returning would be good, too.
Affected files ...
... //depot/perl/ext/Safe/t/safeops.t#3 edit
Differences ...
==== //depot/perl/ext/Safe/t/safeops.t#3 (text) ====
Index: perl/ext/Safe/t/safeops.t
--- perl/ext/Safe/t/safeops.t#2~20639~ Tue Aug 12 02:57:07 2003
+++ perl/ext/Safe/t/safeops.t Tue Aug 12 02:59:16 2003
@@ -41,7 +41,7 @@
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);
End of Patch.
