summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorMattia Barbon <mbarbon@dsi.unive.it>2001-09-11 01:38:46 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2001-09-10 23:31:45 +0000
commit6ea0e80736523dba6f43970534753e0773345f1a (patch)
treee1d93b4f139f9a11bc5c4f6c5f046e7a38dcace8 /perl.c
parentd77a73f101a29bbfce387609842dbaf9ba15a3c3 (diff)
downloadperl-6ea0e80736523dba6f43970534753e0773345f1a.tar.gz
Building on win32 w/o perlio
Message-ID: <3B9D4F06.14433.2C37644@localhost> p4raw-id: //depot/perl@11989
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 510a5ed445..75dec1b452 100644
--- a/perl.c
+++ b/perl.c
@@ -864,7 +864,9 @@ perl_free(pTHXx)
# endif
# ifndef NETWARE
if (PerlProc_lasthost()) {
+# ifdef USE_PERLIO
PerlIO_cleanup();
+# endif
}
# endif
PerlMem_free(aTHXx);
@@ -874,7 +876,9 @@ perl_free(pTHXx)
win32_delete_internal_host(host);
# endif
# else
+# ifdef USE_PERLIO
PerlIO_cleanup();
+# endif
PerlMem_free(aTHXx);
# endif
#else