diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse-core.t | 2 | ||||
| -rw-r--r-- | lib/B/Deparse.t | 2 | ||||
| -rw-r--r-- | lib/locale.t | 2 | ||||
| -rw-r--r-- | lib/warnings.pm | 6 |
4 files changed, 6 insertions, 6 deletions
diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t index 60702c6d9d..8d4c3a147a 100644 --- a/lib/B/Deparse-core.t +++ b/lib/B/Deparse-core.t @@ -40,7 +40,7 @@ plan tests => 2071; use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature # logic to add CORE:: -no warnings 'experimental::aggref'; +no warnings 'experimental::autoderef'; use B::Deparse; my $deparse = new B::Deparse; diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 47feb4be24..b0ecf395b3 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -976,7 +976,7 @@ tr/a/b/r; <a,>; #### # [perl #91008] -# CONTEXT no warnings 'experimental::aggref'; +# CONTEXT no warnings 'experimental::autoderef'; each $@; keys $~; values $!; diff --git a/lib/locale.t b/lib/locale.t index 641e858a5a..18acd3a171 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -2035,7 +2035,7 @@ foreach $test_num ($first_locales_test_number..$final_locales_test_number) { print "# not in Perl itself.\n"; } if ($Okay{$test_num} && grep { $_ == $test_num } @problematical_tests) { - no warnings 'experimental::aggref'; + no warnings 'experimental::autoderef'; # Round to nearest .1% my $percent_fail = (int(.5 + (1000 * scalar(keys $Problem{$test_num}) / scalar(@Locale)))) diff --git a/lib/warnings.pm b/lib/warnings.pm index 4238920434..c42a81996e 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -236,7 +236,7 @@ our %Offsets = ( # Warnings Categories added in Perl 5.019 - 'experimental::aggref'=> 112, + 'experimental::autoderef'=> 112, 'experimental::postderef'=> 114, 'syscalls' => 116, ); @@ -253,7 +253,7 @@ our %Bits = ( 'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] 'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x05", # [51..57] - 'experimental::aggref'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [56] + 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [56] 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [52] 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [53] 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [57] @@ -315,7 +315,7 @@ our %DeadBits = ( 'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] 'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\x0a", # [51..57] - 'experimental::aggref'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [56] + 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [56] 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [52] 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [53] 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [57] |