diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-05-02 23:03:01 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-03 08:51:14 +0000 |
| commit | 41f624326e41e9473759ff78a7d900616bbc39a1 (patch) | |
| tree | 5f49c065864e8f34f87ce7795572645b4b89635a /hv.c | |
| parent | 535ceeb00745175afe74daacb3fafbd3f7b4ac49 (diff) | |
| download | perl-41f624326e41e9473759ff78a7d900616bbc39a1.tar.gz | |
hv.c: do zeroing via mem wrap check
Message-Id: <200605021703.k42H31PF216868@kosh.hut.fi>
p4raw-id: //depot/perl@28075
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); |