From 934dcd01a67d880a33ac86f3f36dcf355d6f8f7a Mon Sep 17 00:00:00 2001
From: Rick Delaney <rick@consumercontact.com>
Date: Thu, 6 Sep 2007 10:40:39 -0400
Subject: Re: [perl #44623] Optimized magic_setisa has bug Message-ID:
 <20070906184039.GG9260@bort.ca>

p4raw-id: //depot/perl@31838
---
 pp_hot.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'pp_hot.c')

diff --git a/pp_hot.c b/pp_hot.c
index 05b9b1680b..0f781258d6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1005,6 +1005,8 @@ PP(pp_aassign)
 		}
 		TAINT_NOT;
 	    }
+	    if (PL_delaymagic & DM_ARRAY)
+		SvSETMAGIC((SV*)ary);
 	    break;
 	case SVt_PVHV: {				/* normal hash */
 		SV *tmpstr;
@@ -1122,9 +1124,6 @@ PP(pp_aassign)
 	    PL_egid = PerlProc_getegid();
 	}
 	PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
-
-	if (PL_delaymagic & DM_ARRAY && SvMAGICAL((SV*)ary))
-	    mg_set((SV*)ary);
     }
     PL_delaymagic = 0;
 
-- 
cgit v1.2.1