From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 May 2006 20:03:01 +0000 (+0300)
Subject: hv.c: do zeroing via mem wrap check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41f624326e41e9473759ff78a7d900616bbc39a1;p=p5sagit%2Fp5-mst-13.2.git

hv.c: do zeroing via mem wrap check
Message-Id: <200605021703.k42H31PF216868@kosh.hut.fi>

p4raw-id: //depot/perl@28075
---

diff --git a/hv.c b/hv.c
index 39fadfc..8630adf 100644
--- a/hv.c
+++ b/hv.c
@@ -1608,8 +1608,7 @@ Perl_hv_clear(pTHX_ HV *hv)
     hfreeentries(hv);
     HvPLACEHOLDERS_set(hv, 0);
     if (HvARRAY(hv))
-	(void)memzero(HvARRAY(hv),
-		      (xhv->xhv_max+1 /* HvMAX(hv)+1 */) * sizeof(HE*));
+	Zero(HvARRAY(hv), xhv->xhv_max+1 /* HvMAX(hv)+1 */, HE*);
 
     if (SvRMAGICAL(hv))
 	mg_clear((SV*)hv);