diff options
author | Ricardo Signes <rjbs@semiotic.systems> | 2021-06-06 15:56:23 -0400 |
---|---|---|
committer | Ricardo Signes <rjbs@semiotic.systems> | 2021-07-25 15:37:14 -0400 |
commit | 915e574d301f00ab410e345d06c5c0a992c95c1f (patch) | |
tree | 87e9e9c9a9adbeda16e214e7e47adf84277d2e0c /lib | |
parent | 25662648e3c1a099a130ca7dc7779a4068c136a0 (diff) | |
download | perl-915e574d301f00ab410e345d06c5c0a992c95c1f.tar.gz |
feature.pm: drop "switch" from latest version bundle
Diffstat (limited to 'lib')
-rw-r--r-- | lib/feature.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/feature.pm b/lib/feature.pm index 9c4179364a..afaf11211b 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -34,6 +34,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(bareword_filehandles bitwise current_sub evalbytes fc indirect multidimensional postderef_qq say state unicode_eval unicode_strings)], "all" => [qw(bareword_filehandles bitwise current_sub declared_refs evalbytes fc indirect isa multidimensional postderef_qq refaliasing say signatures state switch try unicode_eval unicode_strings)], "default" => [qw(bareword_filehandles indirect multidimensional)], ); @@ -58,8 +59,7 @@ $feature_bundle{"5.31"} = $feature_bundle{"5.27"}; $feature_bundle{"5.32"} = $feature_bundle{"5.27"}; $feature_bundle{"5.33"} = $feature_bundle{"5.27"}; $feature_bundle{"5.34"} = $feature_bundle{"5.27"}; -$feature_bundle{"5.35"} = $feature_bundle{"5.27"}; -$feature_bundle{"5.36"} = $feature_bundle{"5.27"}; +$feature_bundle{"5.36"} = $feature_bundle{"5.35"}; $feature_bundle{"5.9.5"} = $feature_bundle{"5.10"}; my %noops = ( postderef => 1, @@ -71,7 +71,7 @@ my %removed = ( our $hint_shift = 26; our $hint_mask = 0x3c000000; -our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 5.27 ); +our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 5.27 5.35 ); # This gets set (for now) in $^H as well as in %^H, # for runtime speed of the uc/lc/ucfirst/lcfirst functions. @@ -505,7 +505,7 @@ The following feature bundles are available: :5.36 bareword_filehandles bitwise current_sub evalbytes fc indirect multidimensional - postderef_qq say state switch unicode_eval + postderef_qq say state unicode_eval unicode_strings The C<:default> bundle represents the feature set that is enabled before |