X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fthreads.xs;h=88f2c042ada2bda4be0fb382920d3f35901d9ae7;hb=4e00007dba8aff8e7c2460229fba52bc74c869dc;hp=83dca9325769d9423b2209357a5d0b00677e865b;hpb=818f00be4858f5a77d0e13417a35f19b8cf2012e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 83dca93..88f2c04 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -315,7 +315,11 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 	 */
 	{
 	    dTHXa(thread->interp);
-
+            /* Here we remove END blocks since they should only run
+	       in the thread they are created 
+            */
+            SvREFCNT_dec(PL_endav);
+            PL_endav = newAV();
             clone_param.flags = 0;
 	    thread->init_function = sv_dup(init_function, &clone_param);
 	    if (SvREFCNT(thread->init_function) == 0) {