From 8454a2bad3d8b9699d8e0ffa06707b46e0688c78 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 3 Dec 1999 05:20:21 +0000
Subject: Windows build tweaks due to change#4623

p4raw-link: @4623 on //depot/perl: 9426adcd48655815b65cea5a9f1eebbe7e23a9df

p4raw-id: //depot/perl@4625
---
 win32/perlhost.h | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'win32/perlhost.h')

diff --git a/win32/perlhost.h b/win32/perlhost.h
index 236a97c00b..dcc8adba5e 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1611,6 +1611,7 @@ PerlProcSignal(struct IPerlProc* piPerl, int sig, Sighandler_t subcode)
     return 0;
 }
 
+#ifdef USE_ITHREADS
 static DWORD WINAPI
 win32_start_child(LPVOID arg)
 {
@@ -1697,11 +1698,13 @@ restart:
     return (DWORD)status;
 #endif
 }
+#endif /* USE_ITHREADS */
 
 int
 PerlProcFork(struct IPerlProc* piPerl)
 {
     dTHXo;
+#ifdef USE_ITHREADS
     DWORD id;
     HANDLE handle;
     CPerlHost *h = new CPerlHost();
@@ -1716,10 +1719,10 @@ PerlProcFork(struct IPerlProc* piPerl)
 						 h->m_pHostperlSock,
 						 h->m_pHostperlProc
 						 );
-#ifdef PERL_SYNC_FORK
+#  ifdef PERL_SYNC_FORK
     id = win32_start_child((LPVOID)new_perl);
     PERL_SET_INTERP(aTHXo);
-#else
+#  else
     handle = CreateThread(NULL, 0, win32_start_child,
 			  (LPVOID)new_perl, 0, &id);
     PERL_SET_INTERP(aTHXo);
@@ -1728,8 +1731,12 @@ PerlProcFork(struct IPerlProc* piPerl)
     w32_pseudo_child_handles[w32_num_pseudo_children] = handle;
     w32_pseudo_child_pids[w32_num_pseudo_children] = id;
     ++w32_num_pseudo_children;
-#endif
+#  endif
     return -(int)id;
+#else
+    Perl_croak(aTHX_ "fork() not implemented!\n");
+    return -1;
+#endif /* USE_ITHREADS */
 }
 
 int
-- 
cgit v1.2.1