From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 21 Oct 2001 19:18:12 +0000 (+0000)
Subject: Win32 PerlIO_cleanup special cases should no longer be required.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d93f9f22eaa7dce16568cb2193ca194466bae1c2;p=p5sagit%2Fp5-mst-13.2.git

Win32 PerlIO_cleanup special cases should no longer be required.

p4raw-id: //depot/perlio@12552
---

diff --git a/perl.c b/perl.c
index 3a11219..06fc41f 100644
--- 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