suppress "experimental" warnings for my $_

diff --git a/ext/XS-APItest/t/underscore_length.t b/ext/XS-APItest/t/underscore_length.t
index 32698f9..545b2a3 100644 (file)
--- 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 53e9db1..dc490c4 100644 (file)
--- 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 f4a507d..462ee3d 100644 (file)
--- 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 0db7a07..828ea3e 100644 (file)
--- 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 7b9c1dd..9923df6 100644 (file)
--- 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 09311c5..28f3043 100644 (file)
--- 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 6bbd100..d5c04b3 100644 (file)
--- 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 1480ce3..b993f1b 100644 (file)
--- 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 9202957..a3cb14a 100644 (file)
--- 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 d4d43f8..0796614 100644 (file)
--- 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 91cc4b7..31eb2d2 100644 (file)
--- 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 439df50..b815491 100644 (file)
--- 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 b63491e..fc13c6f 100644 (file)
--- 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 54c2d05..e6ee0dd 100644 (file)
--- 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 ee68d63..811f5c5 100644 (file)
--- 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/;