due to an oversight during PERL_OBJECT migration, hosts created

by pseudo-fork were never being deleted, leading to a sizeable
memory leak; std FDs in pseudo-children are now closed
automatically to avoid resource leaks; basic infinite looping
fork() test works without leaking again in non-PERL_OBJECT
build

p4raw-id: //depot/perl@5761

1 files changed, 4 insertions, 0 deletions

diff --git a/objXSUB.h b/objXSUB.h
index 1906a661f7..4cf78b9694 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -297,6 +297,10 @@
 #define Perl_do_binmode		pPerl->Perl_do_binmode
 #undef  do_binmode
 #define do_binmode		Perl_do_binmode
+#undef  Perl_do_close
+#define Perl_do_close		pPerl->Perl_do_close
+#undef  do_close
+#define do_close		Perl_do_close
 #if !defined(WIN32)
 #endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)