X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fperlhost.h;h=c8a0406b6c9964b0cc0a4acbd54944ffce32ecfb;hb=25ca88e0cbd385e70d7ea2ee4f8a34a9ff7bcc17;hp=dd63c7664e9cf0f49c24bd7187d76808631a1d60;hpb=37038d913ecbccf83ca988aedaa1e6067b127dbc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/perlhost.h b/win32/perlhost.h
index dd63c76..c8a0406 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) */
     {