From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 5 Aug 2001 03:17:20 +0000 (+0000)
Subject: Little pointer juggling for HP-UX cc to avoid
X-Git-Tag: accepted/trunk/20130322.191538~30686
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ff875642fb93529394d9c68e02de7dfb16e28ea6;p=platform%2Fupstream%2Fperl.git

Little pointer juggling for HP-UX cc to avoid
"warning 524: Cast (non-lvalue) appears on left-hand side of assignment."
followed by
"error 1549: Modifiable lvalue required for assignment operator."

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

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++) {