From 30173ab50ea1d6ed72178a00bc9f2b917b4b37da Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 26 Mar 2004 01:24:24 +0000 Subject: fix some comments in perly.y p4raw-id: //depot/perl@22592 --- perly.y | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perly.y') diff --git a/perly.y b/perly.y index f4a83442ef..9224537979 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 -- cgit v1.2.1