From: Artur Bergman <sky@nanisky.com>
Date: Mon, 22 Oct 2001 17:41:07 +0000 (+0000)
Subject: Flush IO buffers before starting a thread, this mimics fork and seems like a saneer... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b6a0b9300b0eaf800e7a664e27d617bce6944c76;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@12569
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index b2fa87e..6d8394f 100755
--- 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;	
 
 	/*