From: Artur Bergman <sky@nanisky.com>
Date: Thu, 27 Sep 2001 08:53:00 +0000 (+0000)
Subject: Flush buffers on thread closedown.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd58862f51cd3f5fdbd6e93549721f19252499bc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {