From 4f3da17a993846b4efaf37437bea7db81f0a7a77 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 7 Nov 2007 12:12:29 +0000
Subject: Disable debugging output in PerlIO_teardown; it still relies on an
 interpreter being present.

p4raw-id: //depot/perl@32235
---
 perlio.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perlio.c b/perlio.c
index 966894c5d0..76fe22548c 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
@@ -2435,6 +2441,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. */
-- 
cgit v1.2.1