From: Artur Bergman <sky@nanisky.com>
Date: Sun, 13 Apr 2003 19:26:46 +0000 (+0000)
Subject: Fix bug #16253, use all the CPU that we can :-)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47cb5ff94030e4ad02be93d8c9632645ac553a43;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
 	}