summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-26 02:42:38 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-26 02:42:38 +0000
commit2c38e13daec4f9e65bad30c43fc6df91a507e2ca (patch)
tree815e625189864f2ebc95c492cb0c4f04bbf25670 /toke.c
parentaff0d67d6040325b97c3a65dfacc0da27cbd77e4 (diff)
downloadperl-2c38e13daec4f9e65bad30c43fc6df91a507e2ca.tar.gz
change#3744 should have made grep more like map instead of the
other way around p4raw-link: @3744 on //depot/perl: 4e4e412b11cee5b4d44ee0d29943215db93eb350 p4raw-id: //depot/perl@4897
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index db55a1e701..6f28ee1e6d 100644
--- a/toke.c
+++ b/toke.c
@@ -4084,7 +4084,7 @@ Perl_yylex(pTHX)
Rop(OP_SGE);
case KEY_grep:
- LOP(OP_GREPSTART, *s == '(' ? XTERM : XREF);
+ LOP(OP_GREPSTART, XREF);
case KEY_goto:
s = force_word(s,WORD,TRUE,FALSE,FALSE);
@@ -4246,7 +4246,7 @@ Perl_yylex(pTHX)
TERM(sublex_start());
case KEY_map:
- LOP(OP_MAPSTART, *s == '(' ? XTERM : XREF);
+ LOP(OP_MAPSTART, XREF);
case KEY_mkdir:
LOP(OP_MKDIR,XTERM);