From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 14 Feb 2009 09:04:07 +0000 (+0100)
Subject: Forbid to use "foreach" as an attribute
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11baf631abf5da1e2bdc887ea9586fd365c82fce;p=p5sagit%2Fp5-mst-13.2.git

Forbid to use "foreach" as an attribute

(like all other control flow statements)
---

diff --git a/toke.c b/toke.c
index 951c1ca..3c3e0ad 100644
--- a/toke.c
+++ b/toke.c
@@ -4337,6 +4337,7 @@ Perl_yylex(pTHX)
 		    case KEY_or:
 		    case KEY_and:
 		    case KEY_for:
+		    case KEY_foreach:
 		    case KEY_unless:
 		    case KEY_if:
 		    case KEY_while: