perl built with USE_ITHREADS can deadlock during fork() or backticks

[p5sagit/p5-mst-13.2.git] / win32 / win32thread.h

diff --git a/win32/win32thread.h b/win32/win32thread.h
index 1f8840c..7105eca 100644 (file)
--- a/win32/win32thread.h
+++ b/win32/win32thread.h
@@ -180,6 +180,8 @@ END_EXTERN_C
        TlsFree(PL_thr_key);                                            \
     } STMT_END
 
+#define PTHREAD_ATFORK(prepare,parent,child)   NOOP
+
 #if defined(USE_RTL_THREAD_API) && !defined(_MSC_VER)
 #define JOIN(t, avp)                                                   \
     STMT_START {                                                       \