File tree Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Original file line number Diff line number Diff line change @@ -3,7 +3,7 @@ package Safe;
33use 5.003_11;
44use 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#
Original file line number Diff line number Diff line change @@ -45,7 +45,7 @@ plan(tests => scalar @op + 3);
4545sub 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
453453dorassign $x //= $y
454454once SKIP {use feature 'state'; state $foo = 42;}
455455say SKIP {use feature 'say'; say "foo";}
456- smartmatch no warnings 'deprecated'; $x ~~ $y
457456aeach SKIP each @t
458457akeys SKIP keys @t
459458avalues SKIP values @t
You can’t perform that action at this time.
0 commit comments