diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2017-10-18 01:01:11 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2018-09-26 13:00:19 +0100 |
| commit | c22e17d0af032be4fb2cd747c9bb7a7622e3ba64 (patch) | |
| tree | 9781a06bc165ea4ee0c1148a07e0d551ada81a4d /regen | |
| parent | b48c08b9845692aded457ece78aa7d05316e9be3 (diff) | |
| download | perl-c22e17d0af032be4fb2cd747c9bb7a7622e3ba64.tar.gz | |
Remove support for setting $[ to a non-zero value
This removes arybase and all its surrounding machinery.
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/feature.pl | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index aba644f50b..89d46af907 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -27,7 +27,6 @@ my %feature = ( switch => 'switch', bitwise => 'bitwise', evalbytes => 'evalbytes', - array_base => 'arybase', current_sub => '__SUB__', refaliasing => 'refaliasing', postderef_qq => 'postderef_qq', @@ -45,11 +44,11 @@ my %feature = ( # 5.odd implies the next 5.even, but an explicit 5.even can override it. my %feature_bundle = ( all => [ keys %feature ], - default => [qw(array_base)], - "5.9.5" => [qw(say state switch array_base)], - "5.10" => [qw(say state switch array_base)], - "5.11" => [qw(say state switch unicode_strings array_base)], - "5.13" => [qw(say state switch unicode_strings array_base)], + default => [qw()], + "5.9.5" => [qw(say state switch)], + "5.10" => [qw(say state switch)], + "5.11" => [qw(say state switch unicode_strings)], + "5.13" => [qw(say state switch unicode_strings)], "5.15" => [qw(say state switch unicode_strings unicode_eval evalbytes current_sub fc)], "5.17" => [qw(say state switch unicode_strings unicode_eval @@ -69,6 +68,7 @@ my %feature_bundle = ( ); my @noops = qw( postderef lexical_subs ); +my @removed = qw( array_base ); ########################################################################### @@ -195,6 +195,10 @@ print $pm "my \%noops = (\n"; print $pm " $_ => 1,\n", for @noops; print $pm ");\n"; +print $pm "my \%removed = (\n"; +print $pm " $_ => 1,\n", for @removed; +print $pm ");\n"; + print $pm <<EOPM; our \$hint_shift = $HintShift; @@ -371,7 +375,7 @@ read_only_bottom_close_and_rename($h); __END__ package feature; -our $VERSION = '1.53'; +our $VERSION = '1.54'; FEATURES @@ -521,9 +525,9 @@ This feature is available starting with Perl 5.16. =head2 The 'array_base' feature -This feature supports the legacy C<$[> variable. See L<perlvar/$[> and -L<arybase>. It is on by default but disabled under C<use v5.16> (see -L</IMPLICIT LOADING>, below). +This feature supported the legacy C<$[> variable. See L<perlvar/$[>. +It was on by default but disabled under C<use v5.16> (see +L</IMPLICIT LOADING>, below) and unavailable since perl 5.30. This feature is available under this name starting with Perl 5.16. In previous versions, it was simply on all the time, and this pragma knew @@ -780,6 +784,9 @@ sub __common { if (exists $noops{$name}) { next; } + if (!$import && exists $removed{$name}) { + next; + } unknown_feature($name); } if ($import) { |