This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d1d7a15
)
Remove code before declaration, inadvertently added in 447f000ef4448b16.
author
Nicholas Clark
<nick@ccl4.org>
Thu, 13 Jan 2011 17:31:55 +0000
(17:31 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Thu, 13 Jan 2011 17:31:55 +0000
(17:31 +0000)
Code in dist/ isn't yet subject to all the warnings flags that the core C
code enjoys.
dist/threads/threads.xs
patch
|
blob
|
blame
|
history
diff --git
a/dist/threads/threads.xs
b/dist/threads/threads.xs
index
226f796
..
77d0903
100644
(file)
--- a/
dist/threads/threads.xs
+++ b/
dist/threads/threads.xs
@@
-786,14
+786,15
@@
S_ithread_create(
#else
CLONE_PARAMS clone_param_s;
CLONE_PARAMS *clone_param = &clone_param_s;
-
- clone_param->flags = 0;
#endif
-
dTHXa(thread->interp);
MY_CXT_CLONE;
+#if (PERL_VERSION < 13) || (PERL_VERSION == 13 && PERL_SUBVERSION <= 1)
+ clone_param->flags = 0;
+#endif
+
/* Here we remove END blocks since they should only run in the thread
* they are created
*/