suppress "experimental" warnings for my $_

15 files changed, 25 insertions, 25 deletions

diff --git a/ext/XS-APItest/t/underscore_length.t b/ext/XS-APItest/t/underscore_length.t
index 32698f9766..545b2a3240 100644
--- a/ext/XS-APItest/t/underscore_length.t
+++ b/ext/XS-APItest/t/underscore_length.t
@@ -1,4 +1,4 @@
-use warnings; no warnings 'deprecated';
+use warnings; no warnings 'experimental::lexical_topic';
 use strict;
 
 use Test::More tests => 4;
diff --git a/ext/arybase/t/akeys.t b/ext/arybase/t/akeys.t
index 53e9db15e7..dc490c458e 100644
--- a/ext/arybase/t/akeys.t
+++ b/ext/arybase/t/akeys.t
@@ -1,4 +1,4 @@
-use warnings; no warnings 'deprecated';
+use warnings; no warnings 'deprecated', 'experimental::lexical_topic';
 use strict;
 
 BEGIN {
diff --git a/ext/arybase/t/aslice.t b/ext/arybase/t/aslice.t
index f4a507da6b..462ee3d655 100644
--- a/ext/arybase/t/aslice.t
+++ b/ext/arybase/t/aslice.t
@@ -1,4 +1,4 @@
-use warnings; no warnings 'deprecated';
+use warnings; no warnings 'deprecated', 'experimental::lexical_topic';
 use strict;
 
 use Test::More tests => 18;
diff --git a/ext/arybase/t/lslice.t b/ext/arybase/t/lslice.t
index 0db7a078f2..828ea3ef88 100644
--- a/ext/arybase/t/lslice.t
+++ b/ext/arybase/t/lslice.t
@@ -1,4 +1,4 @@
-use warnings; no warnings 'deprecated';
+use warnings; no warnings 'deprecated', 'experimental::lexical_topic';
 use strict;
 
 use Test::More tests => 12;
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]");
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index b63491e9cc..fc13c6f022 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -1645,7 +1645,7 @@ sub run_tests {
     {
         # Test for keys in %+ and %-
         my $message = 'Test keys in %+ and %-';
-        no warnings 'uninitialized', 'deprecated';
+        no warnings 'uninitialized', 'deprecated', 'experimental::lexical_topic';
         my $_ = "abcdef";
         /(?<foo>a)|(?<foo>b)/;
         is((join ",", sort keys %+), "foo", $message);
@@ -1666,7 +1666,7 @@ sub run_tests {
 
     {
         # length() on captures, the numbered ones end up in Perl_magic_len
-        no warnings 'deprecated';
+        no warnings 'deprecated', 'experimental::lexical_topic';
         my $_ = "aoeu \xe6var ook";
         /^ \w+ \s (?<eek>\S+)/x;
 
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index 54c2d050de..e6ee0ddbce 100644
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -915,7 +915,7 @@ sub run_tests {
     {
          my $message = '$REGMARK in replacement; Bug 49190';
          our $REGMARK;
-         no warnings 'deprecated';
+         no warnings 'experimental::lexical_topic';
          my $_ = "A";
          ok(s/(*:B)A/$REGMARK/, $message);
          is($_, "B", $message);
diff --git a/t/re/qr.t b/t/re/qr.t
index ee68d6325e..811f5c577d 100644
--- a/t/re/qr.t
+++ b/t/re/qr.t
@@ -33,7 +33,7 @@ is(ref $rx, "Regexp", "qr// blessed into 'Regexp' by default");
 
  is $output, "5\n1: 5\n2: 5\n", '$a_match_var =~ /$qr/';
 }
-no warnings 'deprecated';
+no warnings 'experimental::lexical_topic';
 for my $_($'){
  my $output = '';
  my $rx = qr/o/;