perly.y: Don’t call op_lvalue on refgen kid

ck_spair also applies lvalue context to the kid ops, so we just end up
calling op_lvalue twice on the same ops.  It’s harmless (being idempo-
tent), but wasteful.

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 99ee27b312..e575b70e02 100644
--- a/perly.y
+++ b/perly.y
@@ -857,7 +857,7 @@ term	:	termbinop
 	|	term '?' term ':' term
 			{ $$ = newCONDOP(0, $1, $3, $5); }
 	|	REFGEN term                          /* \$x, \@y, \%z */
-			{ $$ = newUNOP(OP_REFGEN, 0, op_lvalue($2,OP_REFGEN)); }
+			{ $$ = newUNOP(OP_REFGEN, 0, $2); }
 	|	myattrterm	%prec UNIOP
 			{ $$ = $1; }
 	|	LOCAL term	%prec UNIOP