One last 1008 to replace with PERL_ARENA_SIZE
authorNicholas Clark <nick@ccl4.org>
Tue, 17 May 2005 13:27:43 +0000 (13:27 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 17 May 2005 13:27:43 +0000 (13:27 +0000)
p4raw-id: //depot/perl@24491

sv.c

diff --git a/sv.c b/sv.c
index 9e8af5de0204603038acbc6b914ad013a5ee2d77..799cf526feb98ef21f0cbe16c3d8d643e941ac7d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -209,8 +209,8 @@ S_more_sv(pTHX)
     }
     else {
        char *chunk;                /* must use New here to match call to */
-       New(704,chunk,1008,char);   /* Safefree() in sv_free_arenas()     */
-       sv_add_arena(chunk, 1008, 0);
+       New(704,chunk,PERL_ARENA_SIZE,char);   /* Safefree() in sv_free_arenas()     */
+       sv_add_arena(chunk, PERL_ARENA_SIZE, 0);
     }
     uproot_SV(sv);
     return sv;