Fix bug #16253, use all the CPU that we can :-)

p4raw-id: //depot/perl@19201

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 0110724..1ad12a6 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -494,6 +494,7 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 #ifdef OLD_PTHREADS_API
          pthread_create( &thread->thr, attr, Perl_ithread_run, (void *)thread);
 #else
+         pthread_attr_setscope( &attr, PTHREAD_SCOPE_SYSTEM );
          pthread_create( &thread->thr, &attr, Perl_ithread_run, (void *)thread);
 #endif
        }