1 files changed, 3 insertions, 0 deletions
diff --git a/perly.y b/perly.y
index d007bc0f8c..7eda39e82f 100644
--- 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 */