diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 09:59:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 09:59:16 +0000 |
| commit | fd9784a1ca62fbb854a3338c1d775fba4fc0f385 (patch) | |
| tree | 5a77e7675d6eb11c37746843e4d62c4bad6de6d8 | |
| parent | f94751daa2b06939cc261db105ffe13f428d4b77 (diff) | |
| download | perl-fd9784a1ca62fbb854a3338c1d775fba4fc0f385.tar.gz | |
returning would be good, too.
p4raw-id: //depot/perl@20640
| -rw-r--r-- | ext/Safe/t/safeops.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Safe/t/safeops.t b/ext/Safe/t/safeops.t index 525ee97f62..c990b6a43b 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); |