X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hv.c;h=d5539209bbb0700d04e42e09a8da81cb9861db4d;hb=f3faeb53b75c95d2773d14d859d4fa9ca1594daa;hp=0f57afb77006e2a13dc2c61885874a3e89b5cf19;hpb=45dea987ac01a22d305c6aa3413f540409537f26;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hv.c b/hv.c
index 0f57afb..d553920 100644
--- a/hv.c
+++ b/hv.c
@@ -1191,7 +1191,9 @@ Perl_newHVhv(pTHX_ HV *ohv)
 	/* It's an ordinary hash, so copy it fast. AMS 20010804 */
 	int i, shared = !!HvSHAREKEYS(ohv);
 	HE **ents, **oents = (HE **)HvARRAY(ohv);
-	New(0, (char *)ents, PERL_HV_ARRAY_ALLOC_BYTES(hv_max+1), char);
+	char *a;
+	New(0, a, PERL_HV_ARRAY_ALLOC_BYTES(hv_max+1), char);
+	ents = (HE**)a;
 
 	/* In each bucket... */
 	for (i = 0; i <= hv_max; i++) {