From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 13 Feb 2006 15:12:58 +0000 (+0000)
Subject: All the bits of clone_params.flags need to be initialised, not just
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ae345e35a0fa71a6a704dcc7c7f9ff029895bcd;p=p5sagit%2Fp5-mst-13.2.git

All the bits of clone_params.flags need to be initialised, not just
CLONEf_JOIN_IN.

p4raw-id: //depot/perl@27169
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index f0d9d32..38c5666 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -629,7 +629,7 @@ Perl_ithread_join(pTHX_ SV *obj)
 	  PerlInterpreter *other_perl = thread->interp;
 	  CLONE_PARAMS clone_params;
 	  clone_params.stashes = newAV();
-	  clone_params.flags |= CLONEf_JOIN_IN;
+	  clone_params.flags = CLONEf_JOIN_IN;
 	  PL_ptr_table = ptr_table_new();
 	  current_thread = Perl_ithread_get(aTHX);
 	  Perl_ithread_set(aTHX_ thread);