p2 opexpr: no tuple

fixes 1+1*2 like expressions
perl11 · Sep 20, 2013 · 9815db2 · 9815db2
1 parent 0c1a3af
commit 9815db2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/syn/syntax-p5.y b/syn/syntax-p5.y
@@ -227,7 +227,7 @@ expr = c:method  	        { $$ = PN_AST(EXPR, c) }
     | c:call l:listexprs 	{ $$ = PN_SHIFT(PN_S(l,0));
             if (!PN_S(l, 0)) { PN_SRC(c)->a[1] = PN_SRC($$); }
             $$ = PN_PUSH(PN_TUP($$), c); }
-    | e:opexpr			{ $$ = PN_TUPIF(e) }
+    | e:opexpr			{ $$ = e }
     | c:call			{ $$ = PN_AST(EXPR, c) }
     | e:eatom