diff options
| author | Gisle Aas <gisle@aas.no> | 1998-07-06 23:41:14 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-07 21:36:29 +0000 |
| commit | 4b154ab5f602806ac0f12a58e6d35daf8689fea5 (patch) | |
| tree | a89be12f160e04ec339225cc77f3f2e8afa08ef9 /pp_hot.c | |
| parent | 51301382055ed3f3276ad3e2c544fb9e477a270e (diff) | |
| download | perl-4b154ab5f602806ac0f12a58e6d35daf8689fea5.tar.gz | |
Evaluation of AVHVs in scalar context
Message-ID: <m33ecedaxx.fsf@furu.g.aas.no>
p4raw-id: //depot/perl@1358
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -544,7 +544,8 @@ PP(pp_rv2hv) } else { dTARGET; - /* This bit is OK even when hv is really an AV */ + if (SvTYPE(hv) == SVt_PVAV) + hv = avhv_keys((AV*)hv); if (HvFILL(hv)) sv_setpvf(TARG, "%ld/%ld", (long)HvFILL(hv), (long)HvMAX(hv) + 1); |