Most platforms don't actually need PL_pidstatus, or the associated

.5K of code.

p4raw-id: //depot/perl@25850

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index b907093b9c..19a735a8e7 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4128,7 +4128,9 @@ PP(pp_fork)
 #ifdef THREADS_HAVE_PIDS
 	PL_ppid = (IV)getppid();
 #endif
+#ifdef PERL_USES_PL_PIDSTATUS
 	hv_clear(PL_pidstatus);	/* no kids, so don't wait for 'em */
+#endif
     }
     PUSHi(childpid);
     RETURN;