diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-01-30 17:46:35 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-01-30 17:46:35 +0000 |
| commit | ad4673e589e7f7480399659499acd36d1af9a0f3 (patch) | |
| tree | d948c15f8e7a3dd447987aae9c0a99ac778991d2 /perly.y | |
| parent | 9e3b9e5a5d8bea4abb387fc616a73216b4d8c289 (diff) | |
| download | perl-ad4673e589e7f7480399659499acd36d1af9a0f3.tar.gz | |
minor corrections to comments in perly.y
p4raw-id: //depot/perl@23900
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -398,7 +398,7 @@ argexpr : argexpr ',' ; /* List operators */ -listop : LSTOP indirob argexpr /* print $fh @args */ +listop : LSTOP indirob argexpr /* map {...} @args or print $fh @args */ { $$ = convert($1, OPf_STACKED, prepend_elem(OP_LIST, newGVREF($1,$2), $3) ); } | FUNC '(' indirob expr ')' /* print ($fh @args */ @@ -427,7 +427,7 @@ listop : LSTOP indirob argexpr /* print $fh @args */ { $$ = convert($1, 0, $2); } | FUNC '(' listexprcom ')' /* print (@args) */ { $$ = convert($1, 0, $3); } - | LSTOPSUB startanonsub block /* map { foo } ... */ + | LSTOPSUB startanonsub block /* sub f(&@); f { foo } ... */ { $3 = newANONATTRSUB($2, 0, Nullop, $3); } listexpr %prec LSTOP /* ... @bar */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, |