diff options
| author | Aaron Crane <arc@cpan.org> | 2015-06-11 17:24:13 +0100 |
|---|---|---|
| committer | Aaron Crane <arc@cpan.org> | 2015-07-13 14:08:34 +0100 |
| commit | 262309092c2de925e7ae4a527174f8dc2a0ec7b7 (patch) | |
| tree | fc20e8ab0b42c87c232e3b233556fafe2ac85076 /regen | |
| parent | de6cb0abd243e5772b9783a2cbeef5755a8267d6 (diff) | |
| download | perl-262309092c2de925e7ae4a527174f8dc2a0ec7b7.tar.gz | |
Delete experimental autoderef feature
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/op_private | 2 | ||||
| -rwxr-xr-x | regen/opcode.pl | 1 | ||||
| -rw-r--r-- | regen/opcodes | 5 | ||||
| -rw-r--r-- | regen/warnings.pl | 4 |
4 files changed, 2 insertions, 10 deletions
diff --git a/regen/op_private b/regen/op_private index 06ebca6f76..bcc1c212fa 100644 --- a/regen/op_private +++ b/regen/op_private @@ -440,7 +440,7 @@ addbits($_, 6 => qw(OPpOUR_INTRO OURINTR)) # Variable was in an our() # We might be an lvalue to return addbits($_, 3 => qw(OPpMAYBE_LVSUB LVSUB)) for qw(aassign rv2av rv2gv rv2hv padav padhv aelem helem aslice hslice - av2arylen keys rkeys kvaslice kvhslice substr pos vec multideref); + av2arylen keys kvaslice kvhslice substr pos vec multideref); diff --git a/regen/opcode.pl b/regen/opcode.pl index fe105846d6..50029bd1ae 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -126,7 +126,6 @@ my @raw_alias = ( Perl_pp_sbit_or => ['sbit_xor'], Perl_pp_rv2av => ['rv2hv'], Perl_pp_akeys => ['avalues'], - Perl_pp_rkeys => [qw(rvalues reach)], Perl_pp_trans => [qw(trans transr)], Perl_pp_chop => [qw(chop chomp)], Perl_pp_schop => [qw(schop schomp)], diff --git a/regen/opcodes b/regen/opcodes index 8d07eedc24..9ea0753ffe 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -554,11 +554,6 @@ once once ck_null | custom unknown custom operator ck_null 0 -# For smart dereference for each/keys/values -reach each on reference ck_each d% S -rkeys keys on reference ck_each t% S -rvalues values on reference ck_each dt% S - # For CORE:: subs coreargs CORE:: subroutine ck_null $ diff --git a/regen/warnings.pl b/regen/warnings.pl index be33087e11..c4cc19c716 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -95,8 +95,6 @@ my $tree = { [ 5.017, DEFAULT_ON ], 'experimental::postderef' => [ 5.019, DEFAULT_ON ], - 'experimental::autoderef' => - [ 5.019, DEFAULT_ON ], 'experimental::signatures' => [ 5.019, DEFAULT_ON ], 'experimental::win32_perlio' => @@ -483,7 +481,7 @@ read_only_bottom_close_and_rename($pm); __END__ package warnings; -our $VERSION = '1.32'; +our $VERSION = '1.33'; # Verify that we're called correctly so that warnings will work. # see also strict.pm. |