rename aggref warnings to autoderef

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 8ecb86b..65b8a6c 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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 641e858..18acd3a 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1763,11 +1763,11 @@ type in a pack template.  See L<perlfunc/pack>.
 
 =item each on reference is experimental
 
-(S experimental::aggref) C<each> with a scalar argument is experimental and
+(S experimental::autoderef) C<each> 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<perlrun> for more details.
 
 =item keys on reference is experimental
 
-(S experimental::aggref) C<keys> with a scalar argument is experimental and
+(S experimental::autoderef) C<keys> 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<pop> with a scalar argument is experimental and
+(S experimental::autoderef) C<pop> 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<push> with a scalar argument is experimental and
+(S experimental::autoderef) C<push> 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<perlfunc/setsockopt>.
 
 =item shift on reference is experimental
 
-(S experimental::aggref) C<shift> with a scalar argument is experimental
+(S experimental::autoderef) C<shift> 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<perlfunc/splice>.
 
 =item splice on reference is experimental
 
-(S experimental::aggref) C<splice> with a scalar argument is experimental
+(S experimental::autoderef) C<splice> 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<unshift> with a scalar argument is experimental
+(S experimental::autoderef) C<unshift> 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<values> with a scalar argument is experimental
+(S experimental::autoderef) C<values> 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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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