This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove code before declaration, inadvertently added in 447f000ef4448b16.
authorNicholas Clark <nick@ccl4.org>
Thu, 13 Jan 2011 17:31:55 +0000 (17:31 +0000)
committerNicholas 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

index 226f796..77d0903 100644 (file)
@@ -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
          */