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

p4raw-id: //depot/perl@27262

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 11f79dba33..44defbe295 100644
--- 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;