Change 12569 by sky@sky-titanic on 2001/10/22 17:41:07
Flush IO buffers before starting a thread, this mimics fork and seems like a
saneer behaviour.
Affected files ...
... //depot/perl/ext/threads/threads.xs#18 edit
Differences ...
==== //depot/perl/ext/threads/threads.xs#18 (xtext) ====
Index: perl/ext/threads/threads.xs
--- perl/ext/threads/threads.xs.~1~ Mon Oct 22 11:45:05 2001
+++ perl/ext/threads/threads.xs Mon Oct 22 11:45:05 2001
@@ -91,7 +91,7 @@
obj = newSVrv(obj_ref, class);
sv_setiv(obj, (IV)thread);
SvREADONLY_on(obj);
-
+ PerlIO_flush((PerlIO*)NULL);
current_perl = PERL_GET_CONTEXT;
/*
End of Patch.
