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/sv.c b/sv.c
index fc89183c77..53ef6e09ee 100644
--- a/sv.c
+++ b/sv.c
@@ -11608,7 +11608,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_evalseq		= proto_perl->Ievalseq;
     PL_origenviron	= proto_perl->Iorigenviron;	/* XXX not quite right */
     PL_origalen		= proto_perl->Iorigalen;
+#ifdef PERL_USES_PL_PIDSTATUS
     PL_pidstatus	= newHV();			/* XXX flag for cloning? */
+#endif
     PL_osname		= SAVEPV(proto_perl->Iosname);
     PL_sighandlerp	= proto_perl->Isighandlerp;