From 6a04c2460440e11ec69d2ce463d6d46a2d5d7155 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 27 Oct 2005 01:55:08 +0000
Subject: Win32 fix for change #25850.  I don't know if this define will ever
 be used on Win32, but it does fix the problem at hand. p4raw-link: @25850 on
 //depot/perl: ca0c25f67f45e5dccb746852d8545d7ae29ed067

p4raw-id: //depot/perl@25859
---
 win32/perlhost.h | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'win32/perlhost.h')

diff --git a/win32/perlhost.h b/win32/perlhost.h
index dd63c7664e..c8a0406b6c 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1719,7 +1719,9 @@ win32_start_child(LPVOID arg)
 	sv_setiv(sv, -(IV)w32_pseudo_id);
 	SvREADONLY_on(sv);
     }
+#ifdef PERL_USES_PL_PIDSTATUS    
     hv_clear(PL_pidstatus);
+#endif    
 
     /* push a zero on the stack (we are the child) */
     {
-- 
cgit v1.2.1