diff options
| author | Coral <coral@moonlight.crystalflame.net> | 2001-07-16 07:25:19 -0700 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-07-17 07:50:12 +0000 |
| commit | 8ff9412f9ef1dbdabee4f0993653e1446d7a88c8 (patch) | |
| tree | 7055b22cc4ec19290144d90c64493350e760a8ed /pp_sys.c | |
| parent | 11946041b5e3fb6ece0f34961bb0290ea36d7d61 (diff) | |
| download | perl-8ff9412f9ef1dbdabee4f0993653e1446d7a88c8.tar.gz | |
fix PTHREAD_ATFORK croaking too early, too often
Message-Id: <200107162125.f6GLPJ345261@moonlight.crystalflame.net>
p4raw-id: //depot/perl@11392
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3874,6 +3874,10 @@ PP(pp_fork) Pid_t childpid; GV *tmpgv; +# if defined(USE_ITHREADS) && !defined(HAS_PTHREAD_ATFORK) + Perl_croak(aTHX_ "No pthread_atfork() -- fork() too unsafe"); +# endif + EXTEND(SP, 1); PERL_FLUSHALL_FOR_CHILD; childpid = fork(); |