diff options
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) |