From d401967c52db1a9a5958b708005a5be96d545f55 Mon Sep 17 00:00:00 2001 From: Ricardo Signes Date: Tue, 14 Jan 2014 08:34:19 -0500 Subject: [PATCH] rename aggref warnings to autoderef --- Porting/corelist.pl | 2 +- lib/B/Deparse-core.t | 2 +- lib/B/Deparse.t | 2 +- lib/locale.t | 2 +- lib/warnings.pm | 6 +++--- op.c | 4 ++-- pod/perldiag.pod | 32 ++++++++++++++++---------------- pod/perllexwarn.pod | 2 +- regen/regcharclass.pl | 2 +- regen/warnings.pl | 2 +- t/lib/warnings/op | 8 ++++---- t/op/kvaslice.t | 2 +- t/op/kvhslice.t | 2 +- t/op/push.t | 2 +- t/op/smartkve.t | 2 +- t/op/tie_fetch_count.t | 4 ++-- t/op/unshift.t | 2 +- warnings.h | 2 +- 18 files changed, 40 insertions(+), 40 deletions(-) diff --git a/Porting/corelist.pl b/Porting/corelist.pl index 8ecb86b..65b8a6c 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -10,7 +10,7 @@ use autodie; use strict; use warnings; -no warnings 'experimental::aggref'; +no warnings 'experimental::autoderef'; use File::Find; use ExtUtils::MM_Unix; use version; diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t index 60702c6..8d4c3a1 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 47feb4b..b0ecf39 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -976,7 +976,7 @@ tr/a/b/r; ; #### # [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 641e858..18acd3a 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 4238920..c42a819 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] diff --git a/op.c b/op.c index c8bfca4..bf4a157 100644 --- a/op.c +++ b/op.c @@ -9109,7 +9109,7 @@ Perl_ck_fun(pTHX_ OP *o) scalar(kid); /* diag_listed_as: push on reference is experimental */ Perl_ck_warner_d(aTHX_ - packWARN(WARN_EXPERIMENTAL__AGGREF), + packWARN(WARN_EXPERIMENTAL__AUTODEREF), "%s on reference is experimental", PL_op_desc[type]); } @@ -10953,7 +10953,7 @@ Perl_ck_each(pTHX_ OP *o) /* if treating as a reference, defer additional checks to runtime */ if (o->op_type == ref_type) { /* diag_listed_as: keys on reference is experimental */ - Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__AGGREF), + Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__AUTODEREF), "%s is experimental", PL_op_desc[ref_type]); return o; } diff --git a/pod/perldiag.pod b/pod/perldiag.pod index edeef15..8fc2e61 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -1763,11 +1763,11 @@ type in a pack template. See L. =item each on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental and +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item elseif should be elsif @@ -2703,11 +2703,11 @@ line. See L for more details. =item keys on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental and +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item Label not found for "last %s" @@ -4198,11 +4198,11 @@ fine from VMS' perspective, it's probably not what you intended. =item pop on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental and +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item POSIX class [:%s:] unknown in regex; marked by S<< <-- HERE in m/%s/ >> @@ -4464,11 +4464,11 @@ change when upper cased. =item push on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental and +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item Quantifier follows nothing in regex; marked by S<< <-- HERE in m/%s/ >> @@ -4928,11 +4928,11 @@ L. =item shift on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item shm%s not implemented @@ -5020,11 +5020,11 @@ See L. =item splice on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item Split loop @@ -5845,11 +5845,11 @@ bad switch on your behalf.) =item unshift on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item Unsuccessful %s on filename containing newline @@ -6398,11 +6398,11 @@ longer than 1024 characters. The return value has been truncated to =item values on reference is experimental -(S experimental::aggref) C with a scalar argument is experimental +(S experimental::autoderef) C with a scalar argument is experimental and may change or be removed in a future Perl version. If you want to take the risk of using this feature, simply disable this warning: - no warnings "experimental::aggref"; + no warnings "experimental::autoderef"; =item Variable "%s" is not available diff --git a/pod/perllexwarn.pod b/pod/perllexwarn.pod index 882c502..fdc1762 100644 --- a/pod/perllexwarn.pod +++ b/pod/perllexwarn.pod @@ -229,7 +229,7 @@ will be lost. | +- experimental --+ | | - | +- experimental::aggref + | +- experimental::autoderef | | | +- experimental::lexical_subs | | diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index 13ac0b4..61cd210 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -4,7 +4,7 @@ use strict; use 5.008; use warnings; use warnings FATAL => 'all'; -no warnings 'experimental::aggref'; +no warnings 'experimental::autoderef'; use Text::Wrap qw(wrap); use Data::Dumper; $Data::Dumper::Useqq= 1; diff --git a/regen/warnings.pl b/regen/warnings.pl index becce44..27e4d50 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -99,7 +99,7 @@ my $tree = { [ 5.017, DEFAULT_ON ], 'experimental::postderef' => [ 5.019, DEFAULT_ON ], - 'experimental::aggref' => + 'experimental::autoderef' => [ 5.019, DEFAULT_ON ], }], diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 80fa1cb..5888806 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -253,7 +253,7 @@ use constant phoo => 1..3; @h{gmtime 0}; @h{eval ""}; { - no warnings 'experimental::aggref'; + no warnings 'experimental::autoderef'; @h{each $foo} if 0; @h{keys $foo} if 0; @h{values $foo} if 0; @@ -302,7 +302,7 @@ use constant phoo => 1..3; @h[gmtime 0]; @h[eval ""]; { - no warnings 'experimental::aggref'; + no warnings 'experimental::autoderef'; @h[each $foo] if 0; @h[keys $foo] if 0; @h[values $foo] if 0; @@ -1039,7 +1039,7 @@ pop $fred; shift $fred; unshift $fred; splice $fred; -no warnings 'experimental::aggref' ; +no warnings 'experimental::autoderef' ; push $fred; pop $fred; shift $fred; @@ -1381,7 +1381,7 @@ $fred = {}; keys $fred; values $fred; each $fred; -no warnings 'experimental::aggref' ; +no warnings 'experimental::autoderef' ; keys $fred; values $fred; each $fred; diff --git a/t/op/kvaslice.t b/t/op/kvaslice.t index 3e573ad..e8aa14e 100644 --- a/t/op/kvaslice.t +++ b/t/op/kvaslice.t @@ -182,7 +182,7 @@ plan tests => 40; { my %h = 'a'..'b'; my @i = \%h; - no warnings 'syntax', 'experimental::aggref'; + no warnings 'syntax', 'experimental::autoderef'; my ($k,$v) = each %i[0]; is $k, 'a', 'key returned by each %array[ix]'; is $v, 'b', 'val returned by each %array[ix]'; diff --git a/t/op/kvhslice.t b/t/op/kvhslice.t index 7ee6d7d..321d1c4 100644 --- a/t/op/kvhslice.t +++ b/t/op/kvhslice.t @@ -195,7 +195,7 @@ plan tests => 44; { my %h = 'a'..'b'; my %i = (foo => \%h); - no warnings 'syntax', 'experimental::aggref'; + no warnings 'syntax', 'experimental::autoderef'; my ($k,$v) = each %i{foo=>}; is $k, 'a', 'key returned by each %hash{key}'; is $v, 'b', 'val returned by each %hash{key}'; diff --git a/t/op/push.t b/t/op/push.t index 1407615..b473322 100644 --- a/t/op/push.t +++ b/t/op/push.t @@ -41,7 +41,7 @@ is( join(':',@x), '1:2:3:1:2:3:4:3', 'push intuiting @ on array'); } is( join(':',@x), '1:2:3:1:2:3:4', 'pop intuiting @ on array'); -no warnings 'experimental::aggref'; +no warnings 'experimental::autoderef'; # test for push/pop on arrayref push(\@x,5); diff --git a/t/op/smartkve.t b/t/op/smartkve.t index c18dddd..85eb9e8 100644 --- a/t/op/smartkve.t +++ b/t/op/smartkve.t @@ -7,7 +7,7 @@ BEGIN { } use strict; use warnings; -no warnings 'deprecated', 'experimental::aggref'; +no warnings 'deprecated', 'experimental::autoderef'; use vars qw($data $array $values $hash $errpat); plan 'no_plan'; diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 846c9cf..9f60bb4 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -170,13 +170,13 @@ $dummy = $$var1 ; check_count '${}'; tie my $var2 => 'main', []; $dummy = @$var2 ; check_count '@{}'; { - no warnings 'experimental::aggref'; + no warnings 'experimental::autoderef'; $dummy = shift $var2 ; check_count 'shift arrayref'; } tie my $var3 => 'main', {}; $dummy = %$var3 ; check_count '%{}'; { - no warnings 'experimental::aggref'; + no warnings 'experimental::autoderef'; $dummy = keys $var3 ; check_count 'keys hashref'; } { diff --git a/t/op/unshift.t b/t/op/unshift.t index 6f3bb23..a6cd692 100644 --- a/t/op/unshift.t +++ b/t/op/unshift.t @@ -9,7 +9,7 @@ plan(36); @array = (1, 2, 3); $aref = [1, 2, 3]; -no warnings 'experimental::aggref'; +no warnings 'experimental::autoderef'; { no warnings 'syntax'; $count3 = unshift (@array); diff --git a/warnings.h b/warnings.h index 1518e82..c1e0b93 100644 --- a/warnings.h +++ b/warnings.h @@ -97,7 +97,7 @@ /* Warnings Categories added in Perl 5.019 */ -#define WARN_EXPERIMENTAL__AGGREF 56 +#define WARN_EXPERIMENTAL__AUTODEREF 56 #define WARN_EXPERIMENTAL__POSTDEREF 57 #define WARN_SYSCALLS 58 -- 2.7.4