summaryrefslogtreecommitdiff
path: root/win32/perlhost.h
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2005-10-27 01:55:08 +0000
committerSteve Peters <steve@fisharerojo.org>2005-10-27 01:55:08 +0000
commit6a04c2460440e11ec69d2ce463d6d46a2d5d7155 (patch)
treea3315ce60eb09ee89028da9015ee5b7ed26c95b5 /win32/perlhost.h
parent18a3d61e13d6d303e42e679634ab36e632891177 (diff)
downloadperl-6a04c2460440e11ec69d2ce463d6d46a2d5d7155.tar.gz
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
Diffstat (limited to 'win32/perlhost.h')
-rw-r--r--win32/perlhost.h2
1 files changed, 2 insertions, 0 deletions
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) */
{