From 76549fefd07754d43beb1146d96596a36d02db09 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 28 Apr 2001 14:26:13 +0000 Subject: [PATCH] For PerlIO flush the children's file handles (on fork/exec/system). p4raw-id: //depot/perl@9894 --- perl.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.7.4