[asperl] integrate mainline changes

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

diff --git a/perly.y b/perly.y
index d007bc0..7eda39e 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -153,6 +153,9 @@ sideff      :       error
                        { $$ = newLOOPOP(OPf_PARENS, 1, scalar($3), $1); }
        |       expr UNTIL iexpr
                        { $$ = newLOOPOP(OPf_PARENS, 1, $3, $1);}
+       |       expr FOR expr
+                       { $$ = newFOROP(0, Nullch, $2,
+                                       Nullop, $3, $1, Nullop); }
        ;
 
 else   :       /* NULL */