List assignment to lexical scalar refs

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index 4a0a91a..05049e4 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -3081,7 +3081,7 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* fc            */ 0x0003,
     /* padrange      */ 0x25bc, 0x019b,
     /* refassign     */ 0x25bc, 0x0067,
-    /* lvref         */ 0x0003,
+    /* lvref         */ 0x25bc, 0x0003,
 
 };
 
@@ -3470,7 +3470,7 @@ EXTCONST U8 PL_op_private_valid[] = {
     /* CLONECV    */ (0),
     /* PADRANGE   */ (OPpPADRANGE_COUNTMASK|OPpLVAL_INTRO),
     /* REFASSIGN  */ (OPpARG2_MASK|OPpLVAL_INTRO),
-    /* LVREF      */ (OPpARG1_MASK),
+    /* LVREF      */ (OPpARG1_MASK|OPpLVAL_INTRO),
 
 };