Perl_op_sibling_splice(): update OPf_KIDS

Previously this function didn't update OPf_KIDS when altering the
children. This was only safe as long as the count of kids didn't transition
between 0 and !0.

1 files changed, 6 insertions, 1 deletions

diff --git a/op.c b/op.c
index a045e55d3c..a95c6f40e9 100644
--- a/op.c
+++ b/op.c
@@ -1190,8 +1190,13 @@ Perl_op_sibling_splice(OP *parent, OP *start, int del_count, OP* insert)
         OP_SIBLING_set(start, insert);
         start->op_lastsib = insert ? 0 : 1;
     }
-    else
+    else {
         cLISTOPx(parent)->op_first = insert;
+        if (insert)
+            parent->op_flags |= OPf_KIDS;
+        else
+            parent->op_flags &= ~OPf_KIDS;
+    }
 
     if (!rest) {
         /* update op_last etc */