util.c
/* this is called in parent before the fork() */
this is called in parent before the fork()
this is called in parent before the fork ()
void
Perl_atfork_lock(void)
{
   dVAR;
#if defined(USE_ITHREADS)
#  ifdef MYMALLOC
    MUTEX_LOCK(&PL_malloc_mutex);
#  endif
    OP_REFCNT_LOCK;
#endif
}
void Perl_atfork_lock ( void ) { dVAR ; #if defined ( USE_ITHREADS ) #  ifdef MYMALLOC MUTEX_LOCK ( & PL_malloc_mutex ) ; #  endif OP_REFCNT_LOCK ; #endif }
this is called in parent before the fork()
this is called in parent before the fork ()
/* locks must be held in locking order (if any) */