summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJan Dubois <jand@activestate.com>1999-01-06 02:24:09 +0100
committerJarkko Hietaniemi <jhi@iki.fi>1999-01-06 12:25:24 +0000
commitb002ae775153930d56eef6f15991f67590f4b473 (patch)
treedcf1c13ee683d334ad22c647ad63824232ac61e7 /perl.c
parentd5e6d479963de089122e954c00ec89b003ac06e4 (diff)
downloadperl-b002ae775153930d56eef6f15991f67590f4b473.tar.gz
Based on
To: perl5-porters@perl.org Subject: [PATCH 5.005_03-MAINT_TRIAL2] fixes for PERL_OBJECT and USE_THREADS builds Message-ID: <3696aa85.18259325@smtp1.ibm.net> except that - objXSUB.h was already okay - embed.h patching is futile, global.sym patched instead - objpp.h does not exist - proto.h addition applied manually - win32/GenCAPI.pl was already okay - win32/makedef.pl was already okay p4raw-id: //depot/cfgperl@2572
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index b2ffcc9b4b..bc73c3d4a3 100644
--- a/perl.c
+++ b/perl.c
@@ -126,6 +126,7 @@ perl_construct(register PerlInterpreter *sv_interp)
croak("panic: pthread_key_create");
#endif
MUTEX_INIT(&PL_sv_mutex);
+ MUTEX_INIT(&PL_cred_mutex);
/*
* Safe to use basic SV functions from now on (though
* not things like mortals or tainting yet).
@@ -558,6 +559,7 @@ perl_destruct(register PerlInterpreter *sv_interp)
#ifdef USE_THREADS
MUTEX_DESTROY(&PL_strtab_mutex);
MUTEX_DESTROY(&PL_sv_mutex);
+ MUTEX_DESTROY(&PL_cred_mutex);
MUTEX_DESTROY(&PL_eval_mutex);
MUTEX_DESTROY(&PL_cred_mutex);
COND_DESTROY(&PL_eval_cond);