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 | fdf23a13749f9c7d752f720da093430e16e936fb (patch) | |
| tree | a89be12f160e04ec339225cc77f3f2e8afa08ef9 /pp_hot.c | |
| parent | f3e01130d406bab378c02da8055e989d19498bfb (diff) | |
| download | perl-fdf23a13749f9c7d752f720da093430e16e936fb.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); |