Fix assertion failure with $x[($_)]

Perl · Dec 20, 2014 · b39c105 · b39c105
1 parent 47c8411
commit b39c105
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/op.c b/op.c
@@ -12447,7 +12447,8 @@ S_maybe_multideref(pTHX_ OP *start, OP *orig_o, UV orig_action, U8 hints)
                         break;
 
                     assert(!(kid->op_flags &
-                            ~(OPf_WANT|OPf_KIDS|OPf_MOD|OPf_REF|OPf_SPECIAL)));
+                            ~(OPf_WANT|OPf_KIDS|OPf_MOD|OPf_REF
+                             |OPf_SPECIAL|OPf_PARENS)));
                     assert(!(kid->op_private &
                                     ~(OPpARG1_MASK
                                      |OPpHINT_STRICT_REFS|OPpOUR_INTRO

diff --git a/t/comp/parser.t b/t/comp/parser.t
@@ -518,6 +518,10 @@ is +(${[{a=>214}]}[0])->{a}, 214, '($array[...])->{...}';
 sub FILE1 () { 1 }
 sub dummy { tell FILE1 }
 
+# More potential multideref assertion failures
+# OPf_PARENS on OP_RV2SV in subscript
+$x[($_)];
+
 # Add new tests HERE (above this line)
 
 # bug #74022: Loop on characters in \p{OtherIDContinue}