Integrate perlio:

[  7983]
PERL_IMPLICIT_SYS (almost) works - something odd with "signal"

p4raw-link: @7983 on //depot/perlio: 5f1a76d08cedee4f2888d077fe9593b03dd9bd13

p4raw-id: //depot/perl@7985

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index f8dfe8c850..308d0d31c6 100644
--- a/perl.c
+++ b/perl.c
@@ -787,6 +787,8 @@ perl_free(pTHXx)
 #else
 #  if defined(PERL_IMPLICIT_SYS) && defined(WIN32)
     void *host = w32_internal_host;
+    if (PerlProc_lasthost())
+	PerlIO_cleanup();     
     PerlMem_free(aTHXx);
     win32_delete_internal_host(host);
 #  else