Call finalize_optree on optree generated by newFORM.

finalize_optree should be called on all optrees, thus also on optrees
generated by newFORM.
I don't really understand why this doesn't cause any problems.

diff --git a/op.c b/op.c
index 915dd78..68aa1a7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6998,6 +6998,7 @@ Perl_newFORM(pTHX_ I32 floor, OP *o, OP *block)
     CvSTART(cv) = LINKLIST(CvROOT(cv));
     CvROOT(cv)->op_next = 0;
     CALL_PEEP(CvSTART(cv));
+    finalize_optree(CvROOT(cv));
 #ifdef PERL_MAD
     op_getmad(o,pegop,'n');
     op_getmad_weak(block, pegop, 'b');