From: Artur Bergman <sky@nanisky.com>
Date: Mon, 22 Apr 2002 00:19:40 +0000 (+0000)
Subject: End blocks were not run on Win32.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffb29f9093027d7864dd500e5724f9d4b3023288;p=p5sagit%2Fp5-mst-13.2.git

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