Change 11337 by jhi@alpha on 2001/07/12 23:35:06
Make PTHREAD_ATFORK() to croak if HAS_FORK, noop otherwise.
Affected files ...
... //depot/perl/thread.h#78 edit
Differences ...
==== //depot/perl/thread.h#78 (text) ====
Index: perl/thread.h
--- perl/thread.h.~1~ Thu Jul 12 17:45:06 2001
+++ perl/thread.h Thu Jul 12 17:45:06 2001
@@ -308,9 +308,15 @@
#ifndef PTHREAD_ATFORK
# ifdef HAS_PTHREAD_ATFORK
# define PTHREAD_ATFORK(prepare,parent,child) \
- pthread_atfork(prepare,parent,child)
+ pthread_atfork(prepare,parent,child)
# else
-# define PTHREAD_ATFORK(prepare,parent,child)
+# ifdef HAS_FORK
+# define PTHREAD_ATFORK(prepare,parent,child) \
+ Perl_croak(aTHX_ "No pthread_atfork() -- fork() too unsafe");
+# else
+# define PTHREAD_ATFORK(prepare,parent,child) \
+ NOOP
+# endif
# endif
#endif
End of Patch.
