One last 1008 to replace with PERL_ARENA_SIZE
Nicholas Clark [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 9e8af5d..799cf52 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;