This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32 PerlIO_cleanup special cases should no longer be required.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 21 Oct 2001 19:18:12 +0000 (19:18 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 21 Oct 2001 19:18:12 +0000 (19:18 +0000)
p4raw-id: //depot/perlio@12552

perl.c

diff --git a/perl.c b/perl.c
index 3a11219..06fc41f 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -888,13 +888,6 @@ perl_free(pTHXx)
 #    else
     void *host = w32_internal_host;
 #    endif
-#    ifndef NETWARE
-    if (PerlProc_lasthost()) {
-#      ifdef USE_PERLIO
-       PerlIO_cleanup();
-#      endif
-    }
-#    endif
     PerlMem_free(aTHXx);
 #    ifdef NETWARE
     nw5_delete_internal_host(host);
@@ -902,9 +895,6 @@ perl_free(pTHXx)
     win32_delete_internal_host(host);
 #    endif
 #  else
-#    ifdef USE_PERLIO
-    PerlIO_cleanup();
-#    endif
     PerlMem_free(aTHXx);
 #  endif
 #else