From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 18 May 2009 12:48:51 +0000 (+0100)
Subject: In perl_clone_using(), don't use Newxz() for arrays we immediately assign to.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a341259ef871f26860df2fc95ee4e3bbdeff74d;p=p5sagit%2Fp5-mst-13.2.git

In perl_clone_using(), don't use Newxz() for arrays we immediately assign to.
---

diff --git a/sv.c b/sv.c
index dd51f9f..9c38fce 100644
--- a/sv.c
+++ b/sv.c
@@ -12173,8 +12173,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     }
 
     if (proto_perl->Ipsig_ptr) {
-	Newxz(PL_psig_ptr,  SIG_SIZE, SV*);
-	Newxz(PL_psig_name, SIG_SIZE, SV*);
+	Newx(PL_psig_ptr,  SIG_SIZE, SV*);
+	Newx(PL_psig_name, SIG_SIZE, SV*);
 	for (i = 1; i < SIG_SIZE; i++) {
 	    PL_psig_ptr[i]  = sv_dup_inc(proto_perl->Ipsig_ptr[i], param);
 	    PL_psig_name[i] = sv_dup_inc(proto_perl->Ipsig_name[i], param);