projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0631ea0
)
Use a separate interpreter for the sharedsv space. Another
author
Artur Bergman
<sky@nanisky.com>
Wed, 26 Sep 2001 06:54:32 +0000
(06:54 +0000)
committer
Artur Bergman
<sky@nanisky.com>
Wed, 26 Sep 2001 06:54:32 +0000
(06:54 +0000)
negative sv leak. Sigh.
p4raw-id: //depot/perl@12223
sharedsv.c
patch
|
blob
|
history
diff --git
a/sharedsv.c
b/sharedsv.c
index
d03443c
..
2d347b8
100644
(file)
--- 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);
}
/*