Flush IO buffers before starting a thread, this mimics fork and seems like a saneer...

p4raw-id: //depot/perl@12569

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index b2fa87e..6d8394f 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -91,7 +91,7 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) {
        obj = newSVrv(obj_ref, class);
        sv_setiv(obj, (IV)thread);
        SvREADONLY_on(obj);
-
+       PerlIO_flush((PerlIO*)NULL);
        current_perl = PERL_GET_CONTEXT;        
 
        /*