This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow my \$a
[perl5.git] / op.c
diff --git a/op.c b/op.c
index e5821e7..fdf41a7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3191,6 +3191,11 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
        goto nomod;
 
     case OP_SREFGEN:
+       if (type == OP_NULL) { /* local */
+         local_refgen:
+           op_lvalue(cUNOPo->op_first, OP_NULL);
+           return o;
+       }
        if (type != OP_AASSIGN && type != OP_SASSIGN
         && type != OP_ENTERLOOP)
            goto nomod;
@@ -3199,6 +3204,8 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
        assert (!OpHAS_SIBLING(kid));
        goto kid_2lvref;
     case OP_REFGEN:
+       if (type == OP_NULL) /* local */
+           goto local_refgen;
        if (type != OP_AASSIGN) goto nomod;
        kid = cUNOPo->op_first;
       kid_2lvref:
@@ -3739,7 +3746,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
 
     type = o->op_type;
 
-    if (type == OP_LIST) {
+    if (OP_TYPE_IS_OR_WAS(o, OP_LIST)) {
         OP *kid;
         for (kid = cLISTOPo->op_first; kid; kid = OpSIBLING(kid))
            my_kid(kid, attrs, imopsp);
@@ -3765,6 +3772,11 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
        o->op_private |= OPpOUR_INTRO;
        return o;
     }
+    else if (type == OP_REFGEN || type == OP_SREFGEN) {
+       /* Kid is a nulled OP_LIST, handled above.  */
+       my_kid(cUNOPo->op_first, attrs, imopsp);
+       return o;
+    }
     else if (type != OP_PADSV &&
             type != OP_PADAV &&
             type != OP_PADHV &&