diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-24 00:58:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-10 21:54:18 -0700 |
| commit | 4c5bab508cf172e32fdb9e8567ff635b6d783791 (patch) | |
| tree | 08a82d6118e16e36ac060d2080661d41917234a8 /regen | |
| parent | 238ef7dc59bb442965485ccd157672eaccb98595 (diff) | |
| download | perl-4c5bab508cf172e32fdb9e8567ff635b6d783791.tar.gz | |
Add lvref op type
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/opcode.pl | 2 | ||||
| -rw-r--r-- | regen/opcodes | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/regen/opcode.pl b/regen/opcode.pl index fe1488c259..10c708bb5c 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -55,7 +55,7 @@ while (<OPS>) { $args = '' unless defined $args; warn qq[Description "$desc" duplicates $seen{$desc}\n] - if $seen{$desc} and $key !~ "transr|(?:intro|clone)cv"; + if $seen{$desc} and $key !~ "transr|(?:intro|clone)cv|lvref"; die qq[Opcode "$key" duplicates $seen{$key}\n] if $seen{$key}; die qq[Opcode "freed" is reserved for the slab allocator\n] if $key eq 'freed'; diff --git a/regen/opcodes b/regen/opcodes index c40e3f98d4..0278fa551b 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -554,3 +554,4 @@ introcv private subroutine ck_null d0 clonecv private subroutine ck_null d0 padrange list of private variables ck_null d0 refassign lvalue ref assignment ck_refassign d2 +lvref lvalue ref assignment ck_null d1 |