From: Vincent Pit <perl@profvince.com>
Date: Wed, 10 Sep 2008 22:59:14 +0000 (+0200)
Subject: Re: blead with -Dusemymalloc fails on t/comp/hints.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31f0e52e4a8d663c64567e10670470e8650e0a20;p=p5sagit%2Fp5-mst-13.2.git

Re: blead with -Dusemymalloc fails on t/comp/hints.t
Message-ID: <48C83522.9010804@profvince.com>

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

diff --git a/hv.c b/hv.c
index 24d9150..c394e73 100644
--- a/hv.c
+++ b/hv.c
@@ -1094,7 +1094,7 @@ S_hsplit(pTHX_ HV *hv)
       return;
     }
     if (SvOOK(hv)) {
-	Copy(&a[oldsize * sizeof(HE*)], &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
+	Move(&a[oldsize * sizeof(HE*)], &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
     }
 #else
     Newx(a, PERL_HV_ARRAY_ALLOC_BYTES(newsize)