PERFORCE change 11392 for review

[Nick Ing-Simmons]

Change 11392 by nick@camel-linux on 2001/07/17 07:50:12

        Subject:  [PATCH] fix PTHREAD_ATFORK croaking too early, too often
        From:  Coral <[EMAIL PROTECTED]>
        Date:  Mon, 16 Jul 2001 14:25:19 -0700 (PDT)
        Message-Id:  <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/pp_sys.c#248 edit
... //depot/perl/thread.h#79 edit

Differences ...

==== //depot/perl/pp_sys.c#248 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c.~1~   Tue Jul 17 02:00:06 2001
+++ perl/pp_sys.c       Tue Jul 17 02:00:06 2001
@@ -3874,6 +3874,10 @@
     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();

==== //depot/perl/thread.h#79 (text) ====
Index: perl/thread.h
--- perl/thread.h.~1~   Tue Jul 17 02:00:06 2001
+++ perl/thread.h       Tue Jul 17 02:00:06 2001
@@ -310,13 +310,8 @@
 #    define PTHREAD_ATFORK(prepare,parent,child)               \
        pthread_atfork(prepare,parent,child)
 #  else
-#    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
+#    define PTHREAD_ATFORK(prepare,parent,child)               \
+       NOOP
 #  endif
 #endif
 
@@ -474,7 +469,3 @@
 #ifndef INIT_THREADS
 #  define INIT_THREADS NOOP
 #endif
-
-#ifndef PTHREAD_ATFORK
-#  define PTHREAD_ATFORK(prepare,parent,child) NOOP
-#endif
End of Patch.