flush all open output buffers before fork(), exec(), system, qx//

and pipe open() operations, simplifying buffering headaches faced
by users; uses fflush(NULL), which may need Configure test

p4raw-id: //depot/perl@3352

1 files changed, 3 insertions, 3 deletions

diff --git a/util.c b/util.c
index 2794364d88..31e9c39178 100644
--- a/util.c
+++ b/util.c
@@ -1911,6 +1911,7 @@ my_popen(char *cmd, char *mode)
     SV *sv;
     I32 doexec = strNE(cmd,"-");
 
+    PERL_FLUSHALL_FOR_CHILD;
 #ifdef OS2
     if (doexec) {
 	return my_syspopen(cmd,mode);
@@ -1984,12 +1985,11 @@ my_popen(char *cmd, char *mode)
 #if defined(atarist) || defined(DJGPP)
 FILE *popen();
 PerlIO *
-my_popen(cmd,mode)
-char	*cmd;
-char	*mode;
+my_popen(char *cmd, char *mode)
 {
     /* Needs work for PerlIO ! */
     /* used 0 for 2nd parameter to PerlIO-exportFILE; apparently not used */
+    PERL_FLUSHALL_FOR_CHILD;
     return popen(PerlIO_exportFILE(cmd, 0), mode);
 }
 #endif