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 /miniperlmain.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 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index ed28f47f2a..620fed78b2 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -48,6 +48,12 @@ main(int argc, char **argv, char **env) PERL_SYS_INIT3(&argc,&argv,&env); +#ifdef USE_ITHREADS + PTHREAD_ATFORK(Perl_atfork_lock, + Perl_atfork_unlock, + Perl_atfork_unlock); +#endif + if (!PL_do_undump) { my_perl = perl_alloc(); if (!my_perl) |