Flush buffers on thread closedown.

p4raw-id: //depot/perl@12244

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index cbfcd1f0f891741eccbff5839e54d9cae5b24717..5caedbe65e8fc553dccd38fe7d289c27566873d8 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) {