From: Stephen McCamant <smcc@mit.edu>
Date: Mon, 20 Jul 1998 23:53:32 +0000 (-0500)
Subject: redundant RV2GVs in ck_fun()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c340be789461bf7b71a88fa49cdeb84bdbd0b389;p=p5sagit%2Fp5-mst-13.2.git

redundant RV2GVs in ck_fun()

	Message-Id: <13748.6947.311341.657005@alias-2.pr.mcs.net>

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

diff --git a/op.c b/op.c
index c0454bc..b2169dc 100644
--- a/op.c
+++ b/op.c
@@ -4314,7 +4314,7 @@ ck_fun(OP *o)
 		}
 		break;
 	    case OA_FILEREF:
-		if (kid->op_type != OP_GV) {
+		if (kid->op_type != OP_GV && kid->op_type != OP_RV2GV) {
 		    if (kid->op_type == OP_CONST &&
 		      (kid->op_private & OPpCONST_BARE)) {
 			OP *newop = newGVOP(OP_GV, 0,