Merge 923a39c into 1005e8f

Perl · May 6, 2021 · 8c886a1 · 8c886a1
2 parents 1005e8f + 923a39c
commit 8c886a1
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/op.c b/op.c
@@ -1964,6 +1964,11 @@ Perl_scalar(pTHX_ OP *o)
         case OP_LEAVETRY:
             kid = cLISTOPo->op_first;
             scalar(kid);
+            if (!OpHAS_SIBLING(kid)) {
+                /* handle broken leave trees */
+                next_kid = kid;
+                goto do_next;
+            }
             kid = OpSIBLING(kid);
         do_kids:
             while (kid) {
@@ -2552,6 +2557,11 @@ Perl_list(pTHX_ OP *o)
         case OP_LEAVETRY:
             kid = cLISTOPo->op_first;
             list(kid);
+            if (!OpHAS_SIBLING(kid)) {
+                /* handle broken leave trees */
+                next_kid = kid;
+                goto do_next;
+            }
             kid = OpSIBLING(kid);
         do_kids:
             while (kid) {