diff options
| author | David Mitchell <davem@iabyn.com> | 2014-09-23 16:44:43 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2014-09-23 16:44:43 +0100 |
| commit | 4e0538d9cb1446f7d7f4c30a62975e21aa184042 (patch) | |
| tree | 6270adbaeba2329fd71bb0f7bf60af18608bd919 /regen | |
| parent | 46f8a5eafc5328639a1c6ff58ff2407a39b09c04 (diff) | |
| download | perl-4e0538d9cb1446f7d7f4c30a62975e21aa184042.tar.gz | |
OPpLVAL_INTRO: not used by pos substr vec
These three ops apparently don't use this private flag, so mark them as
such. Also add a comment explaining what OPpLVAL_INTRO means.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/op_private | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/regen/op_private b/regen/op_private index b86a1bdbb4..6a34dcfa93 100644 --- a/regen/op_private +++ b/regen/op_private @@ -293,9 +293,12 @@ for (qw(nextstate dbstate)) { } +# op is in local context, or pad variable is being introduced, e.g. +# local $h{foo} +# my $x addbits($_, 7 => qw(OPpLVAL_INTRO LVINTRO)) - for qw(pos substr vec gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice + for qw(gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice hslice delete padsv padav padhv enteriter entersub padrange pushmark cond_expr), 'list', # this gets set in my_attrs() for some reason |