[patch] arena rework - arena sets

Message-ID: <43DF4F66.4080808@gmail.com>
Date: Tue, 31 Jan 2006 04:52:06 -0700

p4raw-id: //depot/perl@27079

1 files changed, 2 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index 3f6daf7661..bec2ddb13d 100644
--- 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;