X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=76fe22548c09d9bba312d652304406d9b276f0d2;hb=503d18c3058e98ddac11e71da254c0d23141a243;hp=966894c5d03fb65153d2a09289013bb00502609e;hpb=bbbc33d002fb16005d670814239b18d82b3e6229;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index 966894c..76fe225 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2416,6 +2416,12 @@ PerlIO_cleanup(pTHX)
 void PerlIO_teardown() /* Call only from PERL_SYS_TERM(). */
 {
     dVAR;
+#if 0
+/* XXX we can't rely on an interpreter being present at this late stage,
+   XXX so we can't use a function like PerlLIO_write that relies on one
+   being present (at least in win32) :-(.
+   Disable for now.
+*/
 #ifdef DEBUGGING
     {
 	/* By now all filehandles should have been closed, so any
@@ -2436,6 +2442,7 @@ void PerlIO_teardown() /* Call only from PERL_SYS_TERM(). */
 	}
     }
 #endif
+#endif
     /* Not bothering with PL_perlio_mutex since by now
      * all the interpreters are gone. */
     if (PL_perlio_fd_refcnt_size /* Assuming initial size of zero. */