From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 28 Apr 2001 14:26:13 +0000 (+0000)
Subject: For PerlIO flush the children's file handles (on fork/exec/system).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76549fefd07754d43beb1146d96596a36d02db09;p=p5sagit%2Fp5-mst-13.2.git

For PerlIO flush the children's file handles (on fork/exec/system).

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

diff --git a/perl.h b/perl.h
index 01a6d3f..57afb3e 100644
--- a/perl.h
+++ b/perl.h
@@ -1842,10 +1842,12 @@ typedef pthread_key_t	perl_key;
 #endif
 
 /* This defines a way to flush all output buffers.  This may be a
- * performance issue, so we allow people to disable it.
+ * performance issue, so we allow people to disable it.  Also, if
+ * we are using stdio, there are broken implementations of fflush(NULL)
+ * out there, Solaris being the most prominent.
  */
 #ifndef PERL_FLUSHALL_FOR_CHILD
-# if defined(FFLUSH_NULL) || defined(USE_SFIO)
+# if defined(USE_PERLIO) || defined(FFLUSH_NULL) || defined(USE_SFIO)
 #  define PERL_FLUSHALL_FOR_CHILD	PerlIO_flush((PerlIO*)NULL)
 # else
 #  ifdef FFLUSH_ALL