From c340be789461bf7b71a88fa49cdeb84bdbd0b389 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Mon, 20 Jul 1998 18:53:32 -0500 Subject: [PATCH] redundant RV2GVs in ck_fun() Message-Id: <13748.6947.311341.657005@alias-2.pr.mcs.net> p4raw-id: //depot/perl@1606 --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, -- 2.7.4