From: Stephen McCamant <smcc@mit.edu>
Date: Mon, 20 Jul 1998 23:53:32 +0000 (-0500)
Subject: redundant RV2GVs in ck_fun()
X-Git-Tag: accepted/trunk/20130322.191538~37233
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c340be789461bf7b71a88fa49cdeb84bdbd0b389;p=platform%2Fupstream%2Fperl.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,