Change 20639 by [EMAIL PROTECTED] on 2003/08/12 09:57:07
No dor in maint.
Affected files ...
... //depot/perl/ext/Safe/t/safeops.t#2 edit
Differences ...
==== //depot/perl/ext/Safe/t/safeops.t#2 (text) ====
Index: perl/ext/Safe/t/safeops.t
--- perl/ext/Safe/t/safeops.t#1~20623~ Mon Aug 11 12:59:17 2003
+++ perl/ext/Safe/t/safeops.t Tue Aug 12 02:57:07 2003
@@ -41,6 +41,7 @@
sub testop {
my ($op, $opname, $code) = @_;
pass("$op : skipped") and return if $code =~ /^SKIP/;
+ pass("$op : skipped") if $code =~ m://: && $] < 5.009;
my $c = new Safe;
$c->deny_only($op);
$c->reval($code);
End of Patch.
