mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
Add 'isa' to 'use feature :5.35'
This commit is contained in:
parent
157bd0a33a
commit
02547a384a
5
feature.h
generated
5
feature.h
generated
@ -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 \
|
||||
|
||||
9
lib/feature.pm
generated
9
lib/feature.pm
generated
@ -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
|
||||
|
||||
|
||||
@ -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>.
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user