diff options
-rw-r--r-- | feature.h | 2 | ||||
-rw-r--r-- | lib/feature.pm | 16 | ||||
-rwxr-xr-x | regen/feature.pl | 9 |
3 files changed, 11 insertions, 16 deletions
@@ -188,7 +188,7 @@ #define FEATURE_BAREWORD_FILEHANDLES_IS_ENABLED \ ( \ - CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527 \ + CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_535 \ || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \ FEATURE_IS_ENABLED_MASK(FEATURE_BAREWORD_FILEHANDLES_BIT)) \ ) diff --git a/lib/feature.pm b/lib/feature.pm index 5dacd378cb..c16f0e4557 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -5,7 +5,7 @@ package feature; -our $VERSION = '1.71'; +our $VERSION = '1.72'; our %feature = ( fc => 'feature_fc', @@ -36,7 +36,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 isa postderef_qq say signatures state unicode_eval unicode_strings)], + "5.35" => [qw(bareword_filehandles bitwise current_sub evalbytes fc isa postderef_qq say signatures state unicode_eval unicode_strings)], "all" => [qw(bareword_filehandles bitwise current_sub declared_refs defer evalbytes extra_paired_delimiters fc indirect isa multidimensional postderef_qq refaliasing say signatures state switch try unicode_eval unicode_strings)], "default" => [qw(bareword_filehandles indirect multidimensional)], ); @@ -423,10 +423,8 @@ for the exceptions listed below. The perl built-in filehandles C<STDIN>, C<STDOUT>, C<STDERR>, C<DATA>, C<ARGV>, C<ARGVOUT> and the special C<_> are always enabled. -This behavior was always present in versions before Perl 5.34. In Perl 5.34, -it was made controllable with the C<feature> pragma, but was on by default. -It is not present in the C<:5.36> feature bundle, so C<use v5.36> disables -this feature. +This feature is enabled under this name from Perl 5.34 onwards. In +previous versions it was simply on all the time. You can use the L<bareword::filehandles> module on CPAN to disable bareword filehandles for older versions of perl. @@ -927,9 +925,9 @@ The following feature bundles are available: postderef_qq say state switch unicode_eval unicode_strings - :5.36 bitwise current_sub evalbytes fc isa - postderef_qq say signatures state - unicode_eval unicode_strings + :5.36 bareword_filehandles bitwise current_sub + evalbytes fc isa postderef_qq say signatures + state unicode_eval unicode_strings The C<:default> bundle represents the feature set that is enabled before any C<use feature> or C<no feature> declaration. diff --git a/regen/feature.pl b/regen/feature.pl index 7ad7240646..88530097a2 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -59,7 +59,6 @@ use constant V5_23 => sort ( +V5_15, qw{postderef_qq} ); 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, qw{isa signatures}; @@ -487,7 +486,7 @@ read_only_bottom_close_and_rename($h); __END__ package feature; -our $VERSION = '1.71'; +our $VERSION = '1.72'; FEATURES @@ -834,10 +833,8 @@ for the exceptions listed below. The perl built-in filehandles C<STDIN>, C<STDOUT>, C<STDERR>, C<DATA>, C<ARGV>, C<ARGVOUT> and the special C<_> are always enabled. -This behavior was always present in versions before Perl 5.34. In Perl 5.34, -it was made controllable with the C<feature> pragma, but was on by default. -It is not present in the C<:5.36> feature bundle, so C<use v5.36> disables -this feature. +This feature is enabled under this name from Perl 5.34 onwards. In +previous versions it was simply on all the time. You can use the L<bareword::filehandles> module on CPAN to disable bareword filehandles for older versions of perl. |