Always flush the PerlIO buffers after running END blocks in

perl_destruct. This should fix ext/threads/t/end.t under Win32.

p4raw-id: //depot/perl@15989

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index c32cc0a16e..ef5b07038a 100644
--- a/perl.c
+++ b/perl.c
@@ -425,6 +425,9 @@ perl_destruct(pTHXx)
     LEAVE;
     FREETMPS;
 
+    /* Need to flush since END blocks can produce output */
+    PerlIO_flush((PerlIO*)NULL); 
+
     if (CALL_FPTR(PL_threadhook)(aTHX)) {
         /* Threads hook has vetoed further cleanup */
         return STATUS_NATIVE_EXPORT;;