Make parser_free() be called slightly later,

[p5sagit/p5-mst-13.2.git] / perly.act

diff --git a/perly.act b/perly.act
index 8d4b5f8..02aa650 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -325,7 +325,7 @@ case 2:
                          forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
                                newSTATEOP(0,
                                           CopLABEL_alloc(((ps[(1) - (12)].val.p_tkval))->tk_lval.pval),
-                                          ((ps[(5) - (12)].val.opval) ? newOP(OP_NULL, 0) : (ps[(5) - (12)].val.opval)) ),
+                                          ((ps[(5) - (12)].val.opval) ? (ps[(5) - (12)].val.opval) : newOP(OP_NULL, 0)) ),
                                forop));
 
                          token_getmad((ps[(2) - (12)].val.i_tkval),forop,'3');