From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 26 Nov 2006 20:03:16 +0000 (+0000)
Subject: Eliminated unitialised clone_params value bug accidentally added with
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=734a3f9b0c4315bf32accc75f8e7d09ca1806493;p=p5sagit%2Fp5-mst-13.2.git

Eliminated unitialised clone_params value bug accidentally added with
change 28229.

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

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index c734108..5415914 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -644,11 +644,11 @@ S_ithread_create(
         SvREFCNT_dec(PL_endav);
         PL_endav = newAV();
 
+	clone_param.flags = 0;
         if (SvPOK(init_function)) {
             thread->init_function = newSV(0);
             sv_copypv(thread->init_function, init_function);
         } else {
-            clone_param.flags = 0;
             thread->init_function = sv_dup(init_function, &clone_param);
             if (SvREFCNT(thread->init_function) == 0) {
                 SvREFCNT_inc_void(thread->init_function);