List assignment to lexical scalar refs

[perl5.git] / regen / op_private

diff --git a/regen/op_private b/regen/op_private
index df0e8aa..6d4e2a0 100644 (file)
--- a/regen/op_private
+++ b/regen/op_private
@@ -301,7 +301,7 @@ for (qw(nextstate dbstate)) {
 addbits($_, 7 => qw(OPpLVAL_INTRO LVINTRO))
     for qw(gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice
            hslice delete padsv padav padhv enteriter entersub padrange
-           pushmark cond_expr refassign),
+           pushmark cond_expr refassign lvref),
            'list', # this gets set in my_attrs() for some reason
            ;