From b63c7c552a2e9cf2b2c5eb492358b8567fd16179 Mon Sep 17 00:00:00 2001
From: "blino@mandriva.com" <blino@mandriva.com>
Date: Tue, 11 Mar 2008 19:59:45 -0700
Subject: [perl #51636] segmentation fault with array ties From:
 blino@mandriva.com (via RT) <perlbug-followup@perl.org> Message-ID:
 <rt-3.6.HEAD-25460-1205315984-377.51636-75-0@perl.org>

p4raw-id: //depot/perl@33495
---
 av.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'av.c')

diff --git a/av.c b/av.c
index e6c26bc7cb..67ffad9f42 100644
--- a/av.c
+++ b/av.c
@@ -437,7 +437,7 @@ Perl_av_clear(pTHX_ register AV *av)
     /* Give any tie a chance to cleanup first */
     if (SvRMAGICAL(av)) {
 	const MAGIC* const mg = SvMAGIC(av);
-	if (PL_delaymagic && mg->mg_type == PERL_MAGIC_isa)
+	if (PL_delaymagic && mg && mg->mg_type == PERL_MAGIC_isa)
 	    PL_delaymagic |= DM_ARRAY;
         else
 	    mg_clear((SV*)av); 
-- 
cgit v1.2.1