From 59ae57287215834d4b338afe99d274f35da9b1a1 Mon Sep 17 00:00:00 2001
From: Artur Bergman <sky@nanisky.com>
Date: Wed, 26 Sep 2001 06:54:32 +0000
Subject: Use a separate interpreter for the sharedsv space. Another negative
 sv leak. Sigh.

p4raw-id: //depot/perl@12223
---
 sharedsv.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/sharedsv.c b/sharedsv.c
index d03443c72d..2d347b8204 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);
 }
 
 /*
-- 
cgit v1.2.1