summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>1998-05-31 07:56:14 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-06-10 07:56:06 +0000
commit640b9ef65a730c6484f9d9597619ff4535510ea6 (patch)
tree3a32f39a6e8e6123a1b763a44e5c2ea2c0112b29 /perly.y
parent20e9db593ef4f0b3ec4e4dbedd03ab5782525eaf (diff)
downloadperl-640b9ef65a730c6484f9d9597619ff4535510ea6.tar.gz
Added patch, regenerated perly.c and perly.c.diff
Message-Id: <m0ygCL8-000Eb3C@alias-2.pr.mcs.net> Subject: [PATCH] too many RV2GVs in *foo{THING} p4raw-id: //depot/perl@1112
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y3
1 files changed, 1 insertions, 2 deletions
diff --git a/perly.y b/perly.y
index 7eda39e82f..a1a1f0da75 100644
--- a/perly.y
+++ b/perly.y
@@ -442,8 +442,7 @@ term : term ASSIGNOP term
| scalar %prec '('
{ $$ = $1; }
| star '{' expr ';' '}'
- { $$ = newBINOP(OP_GELEM, 0, newGVREF(0,$1),
- scalar($3)); }
+ { $$ = newBINOP(OP_GELEM, 0, $1, scalar($3)); }
| star %prec '('
{ $$ = $1; }
| scalar '[' expr ']' %prec '('