From: Jens Hamisch <jens@Strawberry.COM>
Date: Mon, 30 Oct 2000 15:17:07 +0000 (+0100)
Subject: [ID 20001030.001] 5.7.0-7489: Null-Pointer reference in mg.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e38197b302fd8280036f3650932b6defd2b7e0cc;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001030.001] 5.7.0-7489: Null-Pointer reference in mg.c
Message-Id: <20001030151707.A9597@Strawberry.COM>

p4raw-id: //depot/perl@7499
---

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