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, 1 insertions, 0 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 6302603486..3e1bc3be3c 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -957,6 +957,7 @@ my_popen(char *cmd, char *mode)
 {
     TAINT_ENV();
     TAINT_PROPER("popen");
+    PERL_FLUSHALL_FOR_CHILD;
     return safe_popen(cmd,mode);
 }