Add experimental warnings to new any() and all()

Author: leonerd

lib/B/Deparse-core.t

@@ -91,6 +91,7 @@ sub testit {
         else {
             package test;
             use subs ();
+            no warnings 'experimental::any_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/warnings.pm

@@ -75,6 +75,12 @@ removed in a future Perl version:
     use feature "refaliasing";
     \$x = \$y;
 
+=item all is experimental
+
+(S experimental::any_all) This warning is emitted if you use the C<all>
+keyword of C<use feature 'any_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
 
 (F) The modifiers '!', '<' and '>' are allowed in pack() or unpack() only
@@ -182,6 +188,12 @@ which 'splits' output into two streams, such as
     }
     close OUT;
 
+=item any is experimental
+
+(S experimental::any_all) This warning is emitted if you use the C<any>
+keyword of C<use feature 'any_all'>.  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)
 
 (W misc) The pattern match (C<//>), substitution (C<s///>), and

pod/perldiag.pod

@@ -16,7 +16,7 @@
 #
 # This script is normally invoked from regen.pl.
 
-$VERSION = '1.71';
+$VERSION = '1.72';
 
 BEGIN {
     require './regen/regen_lib.pl';
@@ -158,6 +158,8 @@ BEGIN
                                     [ 5.035, DEFAULT_ON],
                                 'experimental::class' =>
                                     [ 5.037, DEFAULT_ON ],
+                                'experimental::any_all' =>
+                                    [ 5.041, DEFAULT_ON ],
                         }],
 
         'missing'       => [ 5.021, DEFAULT_OFF],

regen/warnings.pl

@@ -7999,7 +7999,8 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct
         LOP(OP_ACCEPT,XTERM);
 
     case KEY_all:
-        /* TODO: experimental warning */
+        Perl_ck_warner_d(aTHX_
+            packWARN(WARN_EXPERIMENTAL__ANY_ALL), "all is experimental");
         LOP(OP_ALLSTART, XREF);
 
     case KEY_and:
@@ -8008,7 +8009,8 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct
         OPERATOR(ANDOP);
 
     case KEY_any:
-        /* TODO: experimental warning */
+        Perl_ck_warner_d(aTHX_
+            packWARN(WARN_EXPERIMENTAL__ANY_ALL), "any is experimental");
         LOP(OP_ANYSTART, XREF);
 
     case KEY_atan2: