diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-09-27 08:53:00 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-09-27 08:53:00 +0000 |
| commit | fd58862f51cd3f5fdbd6e93549721f19252499bc (patch) | |
| tree | 8d04043a2e69eca70898cee1414fb91456c3c173 /ext/threads/threads.xs | |
| parent | e6abe6d8247cf3e8d3e08a706b164c5f207b68b6 (diff) | |
| download | perl-fd58862f51cd3f5fdbd6e93549721f19252499bc.tar.gz | |
Flush buffers on thread closedown.
p4raw-id: //depot/perl@12244
Diffstat (limited to 'ext/threads/threads.xs')
| -rwxr-xr-x | ext/threads/threads.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index cbfcd1f0f8..5caedbe65e 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) { |