From e38197b302fd8280036f3650932b6defd2b7e0cc Mon Sep 17 00:00:00 2001 From: Jens Hamisch Date: Mon, 30 Oct 2000 16:17:07 +0100 Subject: [PATCH] [ID 20001030.001] 5.7.0-7489: Null-Pointer reference in mg.c Message-Id: <20001030151707.A9597@Strawberry.COM> p4raw-id: //depot/perl@7499 --- av.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/av.c b/av.c index ef2c905..777651d 100644 --- a/av.c +++ b/av.c @@ -796,9 +796,14 @@ Perl_av_exists(pTHX_ AV *av, I32 key) if (SvRMAGICAL(av)) { if (mg_find((SV*)av,'P') || mg_find((SV*)av,'D')) { SV *sv = sv_newmortal(); + MAGIC *mg; + mg_copy((SV*)av, sv, 0, key); - magic_existspack(sv, mg_find(sv, 'p')); - return SvTRUE(sv); + mg = mg_find(sv, 'p'); + if (mg) { + magic_existspack(sv, mg); + return SvTRUE(sv); + } } } if (key <= AvFILLp(av) && AvARRAY(av)[key] != &PL_sv_undef -- 2.7.4