diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2016-05-20 06:22:40 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-05-20 15:56:39 -0700 |
| commit | 738155d2fb1d2430e97c38da93d074e4e8b5974f (patch) | |
| tree | cce559a4aad117e4145c2f746c2aa0d91534f7cb /regen | |
| parent | 65985bd1d624ef3a5d827a74683c2bc1f24dfb96 (diff) | |
| download | perl-738155d2fb1d2430e97c38da93d074e4e8b5974f.tar.gz | |
[perl #128187] Forbid keys @_ in assigned lv sub
This is a continuation of this commit’s great grandparent, extending
the error to arrays.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/op_private | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/op_private b/regen/op_private index a7f569e38e..c8b96523c5 100644 --- a/regen/op_private +++ b/regen/op_private @@ -437,7 +437,8 @@ 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 kvaslice kvhslice substr pos vec multideref); + av2arylen keys akeys kvaslice kvhslice substr pos vec + multideref); |