#ifdef USE_ITHREADS
-PerlInterpreter* sharedsv_space;
-perl_mutex sharedsv_space_mutex;
+
/*
Shared SV
void
Perl_sharedsv_init(pTHX)
{
- sharedsv_space = PERL_GET_CONTEXT;
- MUTEX_INIT(&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);
}
/*