From: Doug MacEachern <dougm@covalent.net>
Date: Wed, 11 Jul 2001 08:59:12 +0000 (-0700)
Subject: [patch] pthread_atfork bandaid
X-Git-Tag: perl-5.7.2~66
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/98e467d963acee4d1a7866eb7e9dd6c64605b460?hp=dc507217b3331807446df6e7f16977ee2fdc418e;ds=sidebyside

[patch] pthread_atfork bandaid
Message-ID: <Pine.LNX.4.21.0107110855070.11688-100000@mako.covalent.net>

p4raw-id: //depot/perl@11281
---

diff --git a/miniperlmain.c b/miniperlmain.c
index ed28f47..620fed7 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)
diff --git a/perl.c b/perl.c
index 90d7134..2b731c4 100644
--- a/perl.c
+++ b/perl.c
@@ -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);		\