diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-03-26 01:24:24 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-03-26 01:24:24 +0000 |
| commit | 30173ab50ea1d6ed72178a00bc9f2b917b4b37da (patch) | |
| tree | 7d59a83e0c5afc8ac3bc9b433b7f7735241e0f76 /perly.y | |
| parent | ec5f3c78a7539e41900be465ef86bff34f621939 (diff) | |
| download | perl-30173ab50ea1d6ed72178a00bc9f2b917b4b37da.tar.gz | |
fix some comments in perly.y
p4raw-id: //depot/perl@22592
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |