From d4fa047a051374faa98620c5276b30fcac4657e7 Mon Sep 17 00:00:00 2001 From: Robin Houston Date: Mon, 23 Apr 2001 14:12:30 +0100 Subject: [PATCH] bug 20010423.002 Message-ID: <20010423131230.A20074@puffinry.freeserve.co.uk> p4raw-id: //depot/perl@9789 --- pp.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pp.c b/pp.c index 6730f29..d5e4dd7 100644 --- a/pp.c +++ b/pp.c @@ -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; -- 2.7.4