PL_body_arenas should be set to NULL when the interpreter is cleared.

p4raw-id: //depot/perl@27262

diff --git a/sv.c b/sv.c
index 11f79db..44defbe 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -642,6 +642,7 @@ Perl_sv_free_arenas(pTHX)
 #else
     S_free_arena(aTHX_ (void**) PL_body_arenas);
 #endif
+    PL_body_arenas = 0;
 
     for (i=0; i<PERL_ARENA_ROOTS_SIZE; i++)
        PL_body_roots[i] = 0;