diff options
| author | Chip Salzenberg <chip@pobox.com> | 1997-09-16 09:47:28 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 03:01:27 +0000 |
| commit | ecca16b0cfe0c7f04ba520f2924946a13507530e (patch) | |
| tree | 24ae5b5a1830dddf285dc713d84023901e907fd8 /perly.y | |
| parent | dab48698179b4e8606409875b7121f225bcf46be (diff) | |
| download | perl-ecca16b0cfe0c7f04ba520f2924946a13507530e.tar.gz | |
[win32] yet another patch
Message-Id: <199709161748.NAA08418@nielsenmedia.com>
Subject: Tiny but massively cool: C<statement foreach @list>
p4raw-id: //depot/win32/perl@612
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 */ |