diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-13 17:31:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-13 17:31:55 +0000 |
| commit | ab0dc2a14e4710f9425c659dff37ba4e9bcdebd8 (patch) | |
| tree | 3aecd8caf7a3101cdc173ecccd4bec08f11479c4 | |
| parent | d1d7a15d2d5a0a628a4646ff58aaf00222c7ed58 (diff) | |
| download | perl-ab0dc2a14e4710f9425c659dff37ba4e9bcdebd8.tar.gz | |
Remove code before declaration, inadvertently added in 447f000ef4448b16.
Code in dist/ isn't yet subject to all the warnings flags that the core C
code enjoys.
| -rw-r--r-- | dist/threads/threads.xs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs index 226f796861..77d09035c8 100644 --- 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 */ |