From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 18 May 2003 23:02:07 +0000 (-0500)
Subject: Based on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19a077f678840021ce79e076d77b5f912feb3f1f;p=p5sagit%2Fp5-mst-13.2.git

Based on

Subject: [PATCH threads.xs] no system scope on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EC8573F.6050005@mac.com>

but instead go for #ifdef PTHREAD_SCOPE_SYSTEM.

p4raw-id: //depot/perl@19560
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 83f9e89..580f699 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -506,7 +506,9 @@ 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
+#  ifdef PTHREAD_SCOPE_SYSTEM
 	  pthread_attr_setscope( &attr, PTHREAD_SCOPE_SYSTEM );
+#  endif
 	  pthread_create( &thread->thr, &attr, Perl_ithread_run, (void *)thread);
 #endif
 	}