Change 23900 by [EMAIL PROTECTED] on 2005/01/30 17:46:35
minor corrections to comments in perly.y
Affected files ...
... //depot/perl/perly.y#59 edit
Differences ...
==== //depot/perl/perly.y#59 (text) ====
Index: perl/perly.y
--- perl/perly.y#58~23357~ Sun Oct 10 12:18:00 2004
+++ perl/perly.y Sun Jan 30 09:46:35 2005
@@ -398,7 +398,7 @@
;
/* 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 @@
{ $$ = 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,
End of Patch.