Skip to content

Commit f43ddce

Browse files
tonycozmauke
authored andcommitted
switch removal: Safe t/safeops.t
This test only runs in core, so removing smartmatch can match core.
1 parent e161847 commit f43ddce

File tree

2 files changed

+2
-3
lines changed

2 files changed

+2
-3
lines changed

dist/Safe/Safe.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ package Safe;
33
use 5.003_11;
44
use Scalar::Util qw(reftype refaddr);
55

6-
$Safe::VERSION = "2.46";
6+
$Safe::VERSION = "2.47";
77

88
# *** Don't declare any lexicals above this point ***
99
#

dist/Safe/t/safeops.t

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ plan(tests => scalar @op + 3);
4545
sub testop {
4646
my ($op, $opname, $code) = @_;
4747
pass("$op : skipped") and return if $code =~ /^SKIP/;
48-
pass("$op : skipped") and return if $code =~ m://|~~: && $] < 5.010;
48+
pass("$op : skipped") and return if $code eq "//" && $] < 5.010;
4949
my $c = new Safe;
5050
$c->deny_only($op);
5151
$c->reval($code);
@@ -453,7 +453,6 @@ dor $x // $y
453453
dorassign $x //= $y
454454
once SKIP {use feature 'state'; state $foo = 42;}
455455
say SKIP {use feature 'say'; say "foo";}
456-
smartmatch no warnings 'deprecated'; $x ~~ $y
457456
aeach SKIP each @t
458457
akeys SKIP keys @t
459458
avalues SKIP values @t

0 commit comments

Comments
 (0)