From: Artur Bergman <sky@nanisky.com>
Date: Wed, 26 Sep 2001 06:54:32 +0000 (+0000)
Subject: Use a separate interpreter for the sharedsv space. Another
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59ae57287215834d4b338afe99d274f35da9b1a1;p=p5sagit%2Fp5-mst-13.2.git

Use a separate interpreter for the sharedsv space. Another
negative sv leak. Sigh.

p4raw-id: //depot/perl@12223
---

diff --git a/sharedsv.c b/sharedsv.c
index d03443c..2d347b8 100644
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -44,8 +44,11 @@ currently only stores a pointer to the first interpreter.
 void
 Perl_sharedsv_init(pTHX)
 {
-    PL_sharedsv_space = PERL_GET_CONTEXT;
-    MUTEX_INIT(&PL_sharedsv_space_mutex);
+  PerlInterpreter* old_context = PERL_GET_CONTEXT;
+  PL_sharedsv_space = perl_alloc();
+  perl_construct(PL_sharedsv_space);
+  PERL_SET_CONTEXT(old_context);
+  MUTEX_INIT(&PL_sharedsv_space_mutex);
 }
 
 /*