diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-23 14:12:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-23 13:19:07 +0000 |
| commit | d4fa047a051374faa98620c5276b30fcac4657e7 (patch) | |
| tree | c004ff5060dcfa700f1068c172b03b7ffdb8f978 /pp.c | |
| parent | f31685997832018e7cd7de536fbd409ead4eb89f (diff) | |
| download | perl-d4fa047a051374faa98620c5276b30fcac4657e7.tar.gz | |
bug 20010423.002
Message-ID: <20010423131230.A20074@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9789
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3563,7 +3563,9 @@ PP(pp_hslice) while (++MARK <= SP) { SV *keysv = *MARK; SV **svp; - I32 preeminent = SvRMAGICAL(hv) ? 1 : hv_exists_ent(hv, keysv, 0); + I32 preeminent = SvRMAGICAL(hv) ? 1 : + realhv ? hv_exists_ent(hv, keysv, 0) + : avhv_exists_ent((AV*)hv, keysv, 0); if (realhv) { HE *he = hv_fetch_ent(hv, keysv, lval, 0); svp = he ? &HeVAL(he) : 0; |