From dc8220bfca2d71384f17f046f7e05856915092e1 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Feb 2006 18:00:57 +0000
Subject: [PATCH] PL_body_arenas should be set to NULL when the interpreter is
 cleared.

p4raw-id: //depot/perl@27262
---
 sv.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sv.c b/sv.c
index 11f79db..44defbe 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;
-- 
2.7.4