diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2014-01-14 08:34:19 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2014-01-14 09:33:02 -0500 |
| commit | d401967c52db1a9a5958b708005a5be96d545f55 (patch) | |
| tree | 4ca9daf52a6ef13995b029b2694147370d766295 /lib | |
| parent | 1df6869d4e6a2f5ae04d9304cae006ce6cf7bf96 (diff) | |
| download | perl-d401967c52db1a9a5958b708005a5be96d545f55.tar.gz | |
rename aggref warnings to autoderef
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] |