diff options
author | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
commit | e0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch) | |
tree | 39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/feature.pm | |
parent | b206fdc77d81ed1600949062f08de5690a4bf66f (diff) |
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/feature.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/feature.pm | 30 |
1 files changed, 18 insertions, 12 deletions
diff --git a/Master/tlpkg/tlperl/lib/feature.pm b/Master/tlpkg/tlperl/lib/feature.pm index ed13273f111..6466eb70c65 100644 --- a/Master/tlpkg/tlperl/lib/feature.pm +++ b/Master/tlpkg/tlperl/lib/feature.pm @@ -5,7 +5,7 @@ package feature; -our $VERSION = '1.47'; +our $VERSION = '1.52'; our %feature = ( fc => 'feature_fc', @@ -29,6 +29,7 @@ our %feature_bundle = ( "5.11" => [qw(array_base say state switch unicode_strings)], "5.15" => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)], "5.23" => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], + "5.27" => [qw(bitwise current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], "all" => [qw(array_base bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], "default" => [qw(array_base)], ); @@ -46,6 +47,7 @@ $feature_bundle{"5.22"} = $feature_bundle{"5.15"}; $feature_bundle{"5.24"} = $feature_bundle{"5.23"}; $feature_bundle{"5.25"} = $feature_bundle{"5.23"}; $feature_bundle{"5.26"} = $feature_bundle{"5.23"}; +$feature_bundle{"5.28"} = $feature_bundle{"5.27"}; $feature_bundle{"5.9.5"} = $feature_bundle{"5.10"}; my %noops = ( postderef => 1, @@ -54,7 +56,7 @@ my %noops = ( our $hint_shift = 26; our $hint_mask = 0x1c000000; -our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 ); +our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 5.27 ); # This gets set (for now) in $^H as well as in %^H, # for runtime speed of the uc/lc/ucfirst/lcfirst functions. @@ -175,8 +177,9 @@ C<use feature 'unicode_strings'> subpragma is B<strongly> recommended. This feature is available starting with Perl 5.12; was almost fully implemented in Perl 5.14; and extended in Perl 5.16 to cover C<quotemeta>; -and extended further in Perl 5.26 to cover L<the range -operator|perlop/Range Operators>. +was extended further in Perl 5.26 to cover L<the range +operator|perlop/Range Operators>; and was extended again in Perl 5.28 to +cover L<special-cased whitespace splitting|perlfunc/split>. =head2 The 'unicode_eval' and 'evalbytes' features @@ -313,13 +316,6 @@ This feature is available from Perl 5.22 onwards. =head2 The 'bitwise' feature -B<WARNING>: This feature is still experimental and the implementation may -change 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::bitwise"; - This makes the four standard bitwise operators (C<& | ^ ~>) treat their operands consistently as numbers, and introduces four new dotted operators (C<&. |. ^. ~.>) that treat their operands consistently as strings. The @@ -327,7 +323,10 @@ same applies to the assignment variants (C<&= |= ^= &.= |.= ^.=>). See L<perlop/Bitwise String Operators> for details. -This feature is available from Perl 5.22 onwards. +This feature is available from Perl 5.22 onwards. Starting in Perl 5.28, +C<use v5.28> will enable the feature. Before 5.28, it was still +experimental and would emit a warning in the "experimental::bitwise" +category. =head2 The 'declared_refs' feature @@ -385,6 +384,10 @@ The following feature bundles are available: unicode_eval evalbytes current_sub fc postderef_qq + :5.28 say state switch unicode_strings + unicode_eval evalbytes current_sub fc + postderef_qq bitwise + The C<:default> bundle represents the feature set that is enabled before any C<use feature> or C<no feature> declaration. @@ -434,6 +437,9 @@ with the same effect. If the required version is older than Perl 5.10, the ":default" feature bundle is automatically loaded instead. +Unlike C<use feature ":5.12">, saying C<use v5.12> (or any higher version) +also does the equivalent of C<use strict>; see L<perlfunc/use> for details. + =back =cut |