Merge 923a39c into 1e43c13

Perl · May 8, 2021 · 3c394a3 · 3c394a3
2 parents 1e43c13 + 923a39c
commit 3c394a3
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) {