summaryrefslogtreecommitdiff
path: root/iperlsys.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2001-07-20 18:38:48 +0000
committerGurusamy Sarathy <gsar@cpan.org>2001-07-20 18:38:48 +0000
commit52e18b1f277416a33dff2c066a83fdab0520a2d7 (patch)
tree0d35a4f042171ce3c05667667ca19d69d060a292 /iperlsys.h
parent9046a8ae3aad1f7eda5affd38301ac2313201634 (diff)
downloadperl-52e18b1f277416a33dff2c066a83fdab0520a2d7.tar.gz
Make perl fork()-safe (in a slightly limited way) even on
platforms that don't have pthread_atfork() (extension of the fix in change#11151). Note that this will not help extensions that call fork() directly in C, or that link to libraries that call fork() directly. Such cases must be fixed to either call PerlProc_fork(), or call atfork_lock() in parent before the calling the function that forks and call atfork_unlock() in both parent and child immediately after the fork(). (There are no worries if C code calls exec() in the child immediately after a fork(). Only cases where the child calls perl's API functions (including New()) after the fork() are problematic.) This change also eliminates the use of vfork() from perl, since all such uses were violating the severe restrictions on modifying the state of the process between the vfork() and the exec(). This is a modified version of patches suggested by Abhijit Menon-Sen and Richard Soderberg. p4raw-link: @11151 on //depot/perl: 50dd6e574ff39b609595ddb16b2fe9f625a26f8c p4raw-id: //depot/perl@11423
Diffstat (limited to 'iperlsys.h')
-rw-r--r--iperlsys.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/iperlsys.h b/iperlsys.h
index 081d8b2648..89b551b149 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -1074,7 +1074,7 @@ struct IPerlProcInfo
#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
#define PerlProc_signal(n, h) signal((n), (h))
-#define PerlProc_fork() fork()
+#define PerlProc_fork() my_fork()
#define PerlProc_getpid() getpid()
#ifdef WIN32