Also rename the corresponding 'experimental::all' and 'experimental::any' categories to add 'keyword_'

Author: leonerd

lib/B/Deparse-core.t

@@ -92,7 +92,7 @@ sub testit {
         else {
             package test;
             use subs ();
-            no warnings qw( experimental::any experimental::all );
+            no warnings qw( experimental::keyword_any experimental::keyword_all );
             import subs $keyword;
             $code = "no warnings 'syntax'; no strict 'vars'; sub { ${vars}() = $expr }";
             $code = "use feature 'isa';\n$code" if $keyword eq "isa";

lib/feature.pm

@@ -77,8 +77,8 @@ removed in a future Perl version:
 
 =item all is experimental
 
-(S experimental::all) This warning is emitted if you use the C<all>
-keyword of C<use feature 'keyword_all'>.  This keyword is currently
+(S experimental::keyword_all) This warning is emitted if you use the
+C<all> keyword of C<use feature 'keyword_all'>.  This keyword is currently
 experimental and its behaviour may change in future releases of Perl.
 
 =item '%c' allowed only after types %s in %s
@@ -190,8 +190,8 @@ which 'splits' output into two streams, such as
 
 =item any is experimental
 
-(S experimental::any) This warning is emitted if you use the C<any>
-keyword of C<use feature 'keyword_any'>.  This keyword is currently
+(S experimental::keyword_any) This warning is emitted if you use the
+C<any> keyword of C<use feature 'keyword_any'>.  This keyword is currently
 experimental and its behaviour may change in future releases of Perl.
 
 =item Applying %s to %s will act on scalar(%s)

lib/warnings.pm

@@ -1087,7 +1087,7 @@ =head2 The 'keyword_any' feature
 change or be removed in future versions of Perl.  For this reason, Perl will
 warn when you use the feature, unless you have explicitly disabled the warning:
 
-    no warnings "experimental::any";
+    no warnings "experimental::keyword_any";
 
 This feature enables the L<C<any>|perlfunc/any BLOCK LIST> operator keyword.
 This allow testing whether any of the values in a list satisfy a given
@@ -1099,7 +1099,7 @@ =head2 The 'keyword_all' feature
 change or be removed in future versions of Perl.  For this reason, Perl will
 warn when you use the feature, unless you have explicitly disabled the warning:
 
-    no warnings "experimental::all";
+    no warnings "experimental::keyword_all";
 
 This feature enables the L<C<all>|perlfunc/all BLOCK LIST> operator keyword.
 This allow testing whether all of the values in a list satisfy a given

pod/perldiag.pod

@@ -16,7 +16,7 @@
 #
 # This script is normally invoked from regen.pl.
 
-$VERSION = '1.73';
+$VERSION = '1.74';
 
 BEGIN {
     require './regen/regen_lib.pl';
@@ -157,9 +157,9 @@ BEGIN
                                     [ 5.035, DEFAULT_ON],
                                 'experimental::class' =>
                                     [ 5.037, DEFAULT_ON ],
-                                'experimental::any' =>
+                                'experimental::keyword_any' =>
                                     [ 5.041, DEFAULT_ON ],
-                                'experimental::all' =>
+                                'experimental::keyword_all' =>
                                     [ 5.041, DEFAULT_ON ],
                         }],
 

regen/feature.pl

@@ -329,15 +329,15 @@ Downgrading a use VERSION declaration to below v5.11 is not permitted at - line
 ########
 # any with deferred LIST expression
 use feature 'keyword_any';
-no warnings 'experimental::any';
+no warnings 'experimental::keyword_any';
 any length, qw( a b c )
 EXPECT
 syntax error at - line 4, near "any length"
 Execution of - aborted due to compilation errors.
 ########
 # all with deferred LIST expression
 use feature 'keyword_all';
-no warnings 'experimental::all';
+no warnings 'experimental::keyword_all';
 all length, qw( a b c )
 EXPECT
 syntax error at - line 4, near "all length"

regen/warnings.pl

@@ -7,7 +7,7 @@ BEGIN {
 }
 
 use feature qw( keyword_any keyword_all );
-no warnings qw( experimental::any experimental::all );
+no warnings qw( experimental::keyword_any experimental::keyword_all );
 
 # Basic true/false testing
 ok(  (any { $_ > 10 } 1 .. 20), 'list contains a value above ten' );

t/lib/croak/op

@@ -7973,7 +7973,7 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct
 
     case KEY_all:
         Perl_ck_warner_d(aTHX_
-            packWARN(WARN_EXPERIMENTAL__ALL), "all is experimental");
+            packWARN(WARN_EXPERIMENTAL__KEYWORD_ALL), "all is experimental");
         BLKLOP(OP_ALLSTART);
 
     case KEY_and:
@@ -7983,7 +7983,7 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct
 
     case KEY_any:
         Perl_ck_warner_d(aTHX_
-            packWARN(WARN_EXPERIMENTAL__ANY), "any is experimental");
+            packWARN(WARN_EXPERIMENTAL__KEYWORD_ANY), "any is experimental");
         BLKLOP(OP_ANYSTART);
 
     case KEY_atan2: