From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 30 Jan 2005 17:46:35 +0000 (+0000)
Subject: minor corrections to comments in perly.y
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad4673e589e7f7480399659499acd36d1af9a0f3;p=p5sagit%2Fp5-mst-13.2.git

minor corrections to comments in perly.y

p4raw-id: //depot/perl@23900
---

diff --git a/perly.y b/perly.y
index 11c1bd3..73e36ab 100644
--- a/perly.y
+++ b/perly.y
@@ -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,