summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-10-21 19:18:12 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-10-21 19:18:12 +0000
commitd93f9f22eaa7dce16568cb2193ca194466bae1c2 (patch)
treed9f0858e92a1374db32254647752391448b37421 /perl.c
parent6148bcae7e00c79a54ab24cae043d9cc48443237 (diff)
downloadperl-d93f9f22eaa7dce16568cb2193ca194466bae1c2.tar.gz
Win32 PerlIO_cleanup special cases should no longer be required.
p4raw-id: //depot/perlio@12552
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c10
1 files changed, 0 insertions, 10 deletions
diff --git a/perl.c b/perl.c
index 3a11219227..06fc41ff46 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