diff options
author | Stephen McCamant <smcc@mit.edu> | 1998-07-20 18:53:32 -0500 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 05:17:26 +0000 |
commit | c340be789461bf7b71a88fa49cdeb84bdbd0b389 (patch) | |
tree | 994c268d378fc6755e1b6afa4ed0e68cd6d98c84 /op.c | |
parent | f5aa8f4e1a793f585b09a2df5ded25e27548bc72 (diff) | |
download | perl-c340be789461bf7b71a88fa49cdeb84bdbd0b389.tar.gz |
redundant RV2GVs in ck_fun()
Message-Id: <13748.6947.311341.657005@alias-2.pr.mcs.net>
p4raw-id: //depot/perl@1606
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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, |