From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 26 Mar 2004 01:24:24 +0000 (+0000)
Subject: fix some comments in perly.y
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30173ab50ea1d6ed72178a00bc9f2b917b4b37da;p=p5sagit%2Fp5-mst-13.2.git

fix some comments in perly.y

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

diff --git a/perly.y b/perly.y
index f4a8344..9224537 100644
--- a/perly.y
+++ b/perly.y
@@ -648,7 +648,7 @@ term	:	termbinop
 			{ $$ = newUNOP(OP_NOT, 0, scalar($2)); }
 	|	UNIOP                                /* Unary op, $_ implied */
 			{ $$ = newOP($1, 0); }
-	|	UNIOP block                          /* eval { foo }, I *think* */
+	|	UNIOP block                          /* eval { foo } */
 			{ $$ = newUNOP($1, 0, $2); }
 	|	UNIOP term                           /* Unary op */
 			{ $$ = newUNOP($1, 0, $2); }
@@ -666,9 +666,9 @@ term	:	termbinop
 			{ $$ = newOP($1, OPf_SPECIAL); }
 	|	FUNC1 '(' expr ')'                   /* not($foo) */
 			{ $$ = newUNOP($1, 0, $3); }
-	|	PMFUNC '(' term ')'                  /* split (/foo/) */
+	|	PMFUNC '(' term ')'                  /* /foo/ */
 			{ $$ = pmruntime($1, $3, Nullop); }
-	|	PMFUNC '(' term ',' term ')'         /* split (/foo/,$bar) */
+	|	PMFUNC '(' term ',' term ')'         /* s/foo/bar/ (or tr) */
 			{ $$ = pmruntime($1, $3, $5); }
 	|	WORD
 	|	listop