End blocks were not run on Win32.

       The real fix should be to turn this flag on in RunPerl but
       I think we are too close 5.8 to change that.

p4raw-id: //depot/perl@16057

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index eea6d65..835cd63 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -403,6 +403,7 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
            SvTEMP_off(thread->init_function);
            ptr_table_free(PL_ptr_table);
            PL_ptr_table = NULL;
+           PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        }
 
        PERL_SET_CONTEXT(aTHX);