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 (file)
--- 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,