From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Jul 1999 16:32:48 +0000 (+0000)
Subject: make map behave like grep wrt indirect object slot when
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e4e412b11cee5b4d44ee0d29943215db93eb350;p=p5sagit%2Fp5-mst-13.2.git

make map behave like grep wrt indirect object slot when
there are parentheses; revert an experimental mod by Larry
in change#2038 that failed to parse %{{qw(a b c)}} properly
(this means C<map {use Foo; ...} ...> still needs a proper
fix)

p4raw-link: @2038 on //depot/perl: 834a4ddd8309fbf6aabbbc51bb6fcbe056e7963f

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

diff --git a/toke.c b/toke.c
index 85b37a4..e5dcd33 100644
--- a/toke.c
+++ b/toke.c
@@ -2477,7 +2477,7 @@ Perl_yylex(pTHX)
 				   || (*t == '=' && t[1] == '>')))
 		    OPERATOR(HASHBRACK);
 		if (PL_expect == XREF)
-		    PL_expect = XSTATE;	/* was XTERM, trying XSTATE */
+		    PL_expect = XTERM;
 		else {
 		    PL_lex_brackstack[PL_lex_brackets-1] = XSTATE;
 		    PL_expect = XSTATE;
@@ -3675,8 +3675,8 @@ Perl_yylex(pTHX)
 	    TERM(sublex_start());
 
 	case KEY_map:
-	    LOP(OP_MAPSTART, XREF);
-	    
+	    LOP(OP_MAPSTART, *s == '(' ? XTERM : XREF);
+
 	case KEY_mkdir:
 	    LOP(OP_MKDIR,XTERM);