projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
446bd89
)
Eliminated unitialised clone_params value bug accidentally added with
author
Nicholas Clark
<nick@ccl4.org>
Sun, 26 Nov 2006 20:03:16 +0000
(20:03 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 26 Nov 2006 20:03:16 +0000
(20:03 +0000)
change 28229.
p4raw-id: //depot/perl@29389
ext/threads/threads.xs
patch
|
blob
|
history
diff --git
a/ext/threads/threads.xs
b/ext/threads/threads.xs
index
c734108
..
5415914
100755
(executable)
--- 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);