[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 (file)
--- 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