From ff875642fb93529394d9c68e02de7dfb16e28ea6 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 5 Aug 2001 03:17:20 +0000 Subject: [PATCH] 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 --- hv.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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++) { -- 2.7.4