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 | |
| 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
| -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, |