diff options
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/coreamp.t | 8 | ||||
| -rw-r--r-- | t/op/exec.t | 2 | ||||
| -rw-r--r-- | t/op/mkdir.t | 2 | ||||
| -rw-r--r-- | t/op/mydef.t | 2 | ||||
| -rw-r--r-- | t/op/override.t | 2 | ||||
| -rw-r--r-- | t/op/reverse.t | 2 | ||||
| -rw-r--r-- | t/op/state.t | 2 | ||||
| -rw-r--r-- | t/op/switch.t | 14 |
8 files changed, 17 insertions, 17 deletions
diff --git a/t/op/coreamp.t b/t/op/coreamp.t index 7b9c1dd35b..9923df6663 100644 --- a/t/op/coreamp.t +++ b/t/op/coreamp.t @@ -86,7 +86,7 @@ sub test_proto { # works in all cases. undef $_; { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; is &{"CORE::$o"}(), $out, "&$o with no args uses lexical \$_"; } @@ -94,7 +94,7 @@ sub test_proto { my $r; $r = sub { if($_[0]) { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; is &{"CORE::$o"}(), $out, "&$o with no args uses the right lexical \$_ under recursion"; @@ -104,7 +104,7 @@ sub test_proto { } }; &$r(0); - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; eval { is "CORE::$o"->(), $out, "&$o with the right lexical \$_ in an eval" @@ -1016,7 +1016,7 @@ like $@, qr'^Undefined format "STDOUT" called', my $warnings; local $SIG{__WARN__} = sub { ++$warnings }; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 'Phoo'; ok &mymkdir(), '&mkdir'; like <*>, qr/^phoo(.DIR)?\z/i, 'mkdir works with implicit $_'; diff --git a/t/op/exec.t b/t/op/exec.t index 09311c55f6..28f3043094 100644 --- a/t/op/exec.t +++ b/t/op/exec.t @@ -124,7 +124,7 @@ $Perl -le "print 'ok'" END { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = qq($Perl -le "print 'ok'"); is( readpipe, "ok\n", 'readpipe default argument' ); } diff --git a/t/op/mkdir.t b/t/op/mkdir.t index 6bbd100851..d5c04b3078 100644 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -48,7 +48,7 @@ ok(!-d); $_ = 'lfrulb'; { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 'blurfl'; ok(mkdir); ok(-d); diff --git a/t/op/mydef.t b/t/op/mydef.t index 1480ce3c40..b993f1b607 100644 --- a/t/op/mydef.t +++ b/t/op/mydef.t @@ -7,7 +7,7 @@ BEGIN { } use strict; -no warnings 'misc', 'deprecated'; +no warnings 'misc', 'experimental::lexical_topic'; $_ = 'global'; is($_, 'global', '$_ initial value'); diff --git a/t/op/override.t b/t/op/override.t index 920295709d..a3cb14a30f 100644 --- a/t/op/override.t +++ b/t/op/override.t @@ -66,7 +66,7 @@ is( $r, join($dirsep, "Foo", "Bar.pm") ); BEGIN { # Can’t do ‘no warnings’ with CORE::GLOBAL::require overridden. :-) CORE::require warnings; - unimport warnings 'deprecated'; + unimport warnings 'experimental::lexical_topic'; } my $_ = 'bar.pm'; require; diff --git a/t/op/reverse.t b/t/op/reverse.t index d4d43f8ac1..0796614ffb 100644 --- a/t/op/reverse.t +++ b/t/op/reverse.t @@ -94,7 +94,7 @@ use Tie::Array; { # Lexical $_. - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; sub blurp { my $_ = shift; reverse } is(blurp("foo"), "oof", 'reversal of default variable in function'); diff --git a/t/op/state.t b/t/op/state.t index 91cc4b7e58..31eb2d2255 100644 --- a/t/op/state.t +++ b/t/op/state.t @@ -211,7 +211,7 @@ my $first = $stones [0]; my $First = ucfirst $first; $_ = "bambam"; foreach my $flint (@stones) { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; state $_ = $flint; is $_, $first, 'state $_'; ok /$first/, '/.../ binds to $_'; diff --git a/t/op/switch.t b/t/op/switch.t index 439df509b3..b81549127c 100644 --- a/t/op/switch.t +++ b/t/op/switch.t @@ -55,7 +55,7 @@ given("inside") { check_outside1() } sub check_outside1 { is($_, "inside", "\$_ is not lexically scoped") } { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = "outside"; given("inside") { check_outside2() } sub check_outside2 { @@ -398,7 +398,7 @@ sub check_outside1 { is($_, "inside", "\$_ is not lexically scoped") } # Make sure it still works with a lexical $_: { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; my $test = "explicit comparison with lexical \$_"; my $twenty_five = 25; @@ -699,7 +699,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; for (1, "two") { when ("two") { @@ -718,7 +718,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; for $_ (1, "two") { when ("two") { @@ -737,7 +737,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; for my $_ (1, "two") { when ("two") { is($first, 0, "Lexical loop: second"); @@ -1371,7 +1371,7 @@ unreified_check(undef,""); { sub f1 { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; given(3) { return sub { $_ } # close over lexical $_ @@ -1385,7 +1385,7 @@ unreified_check(undef,""); sub DESTROY { $d++ }; sub f2 { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 5; given(bless [7]) { ::is($_->[0], 7, "is [7]"); |