From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Feb 2006 18:00:57 +0000 (+0000)
Subject: PL_body_arenas should be set to NULL when the interpreter is cleared.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc8220bfca2d71384f17f046f7e05856915092e1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;