new_body_type doesn't need to subtract the offset, that's what

[p5sagit/p5-mst-13.2.git] / hv.c

diff --git a/hv.c b/hv.c
index 3f6daf7..bec2ddb 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -42,7 +42,8 @@ S_more_he(pTHX)
     dVAR;
     HE* he;
     HE* heend;
-    Newx(he, PERL_ARENA_SIZE/sizeof(HE), HE);
+
+    he = (HE*) Perl_get_arena(aTHX_ PERL_ARENA_SIZE);
     HeNEXT(he) = (HE*) PL_body_arenas;
     PL_body_arenas = he;