Add a comment explaining why setting expr op's parent to NULL is OK here

leonerd · Nov 26, 2024 · e69bc1f · e69bc1f
1 parent f3c6237
commit e69bc1f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/op.c b/op.c
@@ -9870,6 +9870,11 @@ Perl_newFOROP(pTHX_ I32 flags, OP *sv, OP *expr, OP *block, OP *cont)
             expr = args;
         }
 
+        /* expr's parent has currently been set to NULL, but that's OK. When
+         * it gets consumed by the LOOP* structure later to make the loop op
+         * itself this will get set correctly.
+         */
+
         iterpflags |= OPpITER_INDEXED;
     }