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 (executable)
--- 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
        }