diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-07-11 01:59:12 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 00:32:17 +0000 |
| commit | 98e467d963acee4d1a7866eb7e9dd6c64605b460 (patch) | |
| tree | 4759607ba75b927986e3fd738b34f30b74788856 /perl.c | |
| parent | dc507217b3331807446df6e7f16977ee2fdc418e (diff) | |
| download | perl-98e467d963acee4d1a7866eb7e9dd6c64605b460.tar.gz | |
[patch] pthread_atfork bandaid
Message-ID: <Pine.LNX.4.21.0107110855070.11688-100000@mako.covalent.net>
p4raw-id: //depot/perl@11281
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 14 |
1 files changed, 4 insertions, 10 deletions
@@ -59,12 +59,9 @@ static I32 read_e_script(pTHXo_ int idx, SV *buf_sv, int maxlen); #else # if defined(USE_ITHREADS) -static void S_atfork_lock(void); -static void S_atfork_unlock(void); - /* this is called in parent before the fork() */ -static void -S_atfork_lock(void) +void +Perl_atfork_lock(void) { /* locks must be held in locking order (if any) */ #ifdef MYMALLOC @@ -74,8 +71,8 @@ S_atfork_lock(void) } /* this is called in both parent and child after the fork() */ -static void -S_atfork_unlock(void) +void +Perl_atfork_unlock(void) { /* locks must be released in same order as in S_atfork_lock() */ #ifdef MYMALLOC @@ -92,9 +89,6 @@ S_atfork_unlock(void) ALLOC_THREAD_KEY; \ PERL_SET_THX(my_perl); \ OP_REFCNT_INIT; \ - PTHREAD_ATFORK(S_atfork_lock, \ - S_atfork_unlock, \ - S_atfork_unlock); \ } \ else { \ PERL_SET_THX(my_perl); \ |