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

p4raw-id: //depot/perl@9894

1 files changed, 4 insertions, 2 deletions

diff --git a/perl.h b/perl.h
index 01a6d3fcb9..57afb3e37c 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