Change 33495 by stevep@stevep-kirk on 2008/03/12 16:38:20

	Subject: [perl #51636] segmentation fault with array ties
	From: blino@mandriva.com (via RT) <perlbug-followup@perl.org>
	Date: Wed, 12 Mar 2008 02:59:45 -0700
	Message-ID: <rt-3.6.HEAD-25460-1205315984-377.51636-75-0@perl.org>

Affected files ...

... //depot/perl/av.c#132 edit

Differences ...

==== //depot/perl/av.c#132 (text) ====

--- perl-5.10.0/av.c.orig       2008-03-12 15:47:22.000000000 +0100
+++ perl-5.10.0/av.c    2008-03-13 19:22:52.000000000 +0100
@@ -437,7 +437,7 @@
     /* 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);