Flush buffers on thread closedown.

p4raw-id: //depot/perl@12244

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index cbfcd1f..5caedbe 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -56,6 +56,7 @@ void* Perl_thread_run(void * arg) {
        }
 
        MUTEX_LOCK(&thread->mutex);
+       PerlIO_flush((PerlIO*)NULL);
        perl_destruct(thread->interp);  
        perl_free(thread->interp);
        if(thread->detached == 1) {