From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 7 Nov 2007 12:12:29 +0000 (+0000)
Subject: Disable debugging output in PerlIO_teardown;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f3da17a993846b4efaf37437bea7db81f0a7a77;p=p5sagit%2Fp5-mst-13.2.git

Disable debugging output in PerlIO_teardown;
it still relies on an interpreter being present.

p4raw-id: //depot/perl@32235
---

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. */