From 98e467d963acee4d1a7866eb7e9dd6c64605b460 Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@covalent.net>
Date: Wed, 11 Jul 2001 01:59:12 -0700
Subject: [patch] pthread_atfork bandaid Message-ID:
 <Pine.LNX.4.21.0107110855070.11688-100000@mako.covalent.net>

p4raw-id: //depot/perl@11281
---
 miniperlmain.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'miniperlmain.c')

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)
-- 
cgit v1.2.1