Add 'isa' to 'use feature :5.35'

5 files changed, 17 insertions, 11 deletions

diff --git a/feature.h b/feature.h
index ca44a23fd3..ac9a0dde24 100644
--- a/feature.h
+++ b/feature.h
@@ -63,8 +63,9 @@
 
 #define FEATURE_ISA_IS_ENABLED \
     ( \
-	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
-	 FEATURE_IS_ENABLED_MASK(FEATURE_ISA_BIT) \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_535 \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED_MASK(FEATURE_ISA_BIT)) \
     )
 
 #define FEATURE_SAY_IS_ENABLED \
diff --git a/lib/feature.pm b/lib/feature.pm
index 12503c6a8b..b3743536ec 100644
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -5,7 +5,7 @@
 
 package feature;
 
-our $VERSION = '1.69';
+our $VERSION = '1.70';
 
 our %feature = (
     fc                   => 'feature_fc',
@@ -35,7 +35,7 @@ our %feature_bundle = (
     "5.15"    => [qw(bareword_filehandles current_sub evalbytes fc indirect multidimensional say state switch unicode_eval unicode_strings)],
     "5.23"    => [qw(bareword_filehandles current_sub evalbytes fc indirect multidimensional postderef_qq say state switch unicode_eval unicode_strings)],
     "5.27"    => [qw(bareword_filehandles bitwise current_sub evalbytes fc indirect multidimensional postderef_qq say state switch unicode_eval unicode_strings)],
-    "5.35"    => [qw(bitwise current_sub evalbytes fc postderef_qq say state unicode_eval unicode_strings)],
+    "5.35"    => [qw(bitwise current_sub evalbytes fc isa postderef_qq say state unicode_eval unicode_strings)],
     "all"     => [qw(bareword_filehandles bitwise current_sub declared_refs defer evalbytes fc indirect isa multidimensional postderef_qq refaliasing say signatures state switch try unicode_eval unicode_strings)],
     "default" => [qw(bareword_filehandles indirect multidimensional)],
 );
@@ -373,7 +373,8 @@ except when explicitly disabled:
 
 As of Perl 5.36, use of this feature no longer triggers a warning (though the
 C<experimental::isa> warning category stilll exists for compatibility with
-code that disables it).
+code that disables it). This feature is now considered stable, and is enabled
+automatically by C<use v5.36> (or higher).
 
 =head2 The 'indirect' feature
 
@@ -514,7 +515,7 @@ The following feature bundles are available:
             postderef_qq say state switch unicode_eval
             unicode_strings
 
-  :5.36     bitwise current_sub evalbytes fc
+  :5.36     bitwise current_sub evalbytes fc isa
             postderef_qq say state unicode_eval
             unicode_strings
 
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 39261f92ef..311d06bf6e 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -58,7 +58,9 @@ may be subject to change in a future version.
 =head2 The C<isa> operator is no longer experimental
 
 Introduced in Perl version 5.32.0, this operator has remained unchanged
-since then. The operator is now considered a stable languauge feature.
+since then. The operator is now considered a stable languauge feature and is
+included in the C<:5.36> feature bundle, enabled automatically by
+C<use v5.36>.
 
 For more detail see L<perlop/Class Instance Operator>.
 
diff --git a/pod/perlop.pod b/pod/perlop.pod
index 8c820eda13..42ec814655 100644
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -674,7 +674,8 @@ scalar expression that yields a string class name:
     if( $obj isa $name_of_class ) { ... }
 
 This feature is available from Perl 5.31.6 onwards when enabled by
-C<use feature 'isa'>.
+C<use feature 'isa'>. This feature is enabled automatically by a
+C<use v5.36> (or higher) declaration in the current scope.
 
 =head2 Smartmatch Operator
 
diff --git a/regen/feature.pl b/regen/feature.pl
index afad62af97..9f1bf67e19 100755
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -60,7 +60,7 @@ use constant V5_27  => sort ( +V5_23, qw{bitwise} );
 use constant V5_35  => sort grep {; $_ ne 'switch'
                                  && $_ ne 'bareword_filehandles'
                                  && $_ ne 'indirect'
-                                 && $_ ne 'multidimensional' } +V5_27;
+                                 && $_ ne 'multidimensional' } +V5_27, qw{isa};
 
 my %feature_bundle = (
     all     => [ sort keys %feature ],
@@ -486,7 +486,7 @@ read_only_bottom_close_and_rename($h);
 __END__
 package feature;
 
-our $VERSION = '1.69';
+our $VERSION = '1.70';
 
 FEATURES
 
@@ -784,7 +784,8 @@ except when explicitly disabled:
 
 As of Perl 5.36, use of this feature no longer triggers a warning (though the
 C<experimental::isa> warning category stilll exists for compatibility with
-code that disables it).
+code that disables it). This feature is now considered stable, and is enabled
+automatically by C<use v5.36> (or higher).
 
 =head2 The 'indirect' feature