X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=225d3dcabb401a406c93d7872145ea38c84b47a8;hb=3b0e0cb610a437b422e9557a50cdb439557976dd;hp=eabe43c4cae074b078f72dee0e9ae53168f52be0;hpb=7889fe52c8bdedf274e4826ad460ef6c3606ca6a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index eabe43c..225d3dc 100644
--- a/perl.c
+++ b/perl.c
@@ -788,12 +788,13 @@ perl_free(pTHXx)
 #  if defined(WIN32)
 #  if defined(PERL_IMPLICIT_SYS)
     void *host = w32_internal_host;
-    if (PerlProc_lasthost())
-	PerlIO_cleanup();
+    if (PerlProc_lasthost()) {
+	PerlIO_cleanup();     
+    }
     PerlMem_free(aTHXx);
     win32_delete_internal_host(host);
 #else
-    PerlIO_cleanup();
+    PerlIO_cleanup();     
     PerlMem_free(aTHXx);
 #endif
 #  else