From: Artur Bergman <sky@nanisky.com>
Date: Fri, 12 Oct 2001 14:55:08 +0000 (+0000)
Subject: Let us avoid being smart for now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8359b7143a85d9f57ad6d9b585248d87f027781e;p=p5sagit%2Fp5-mst-13.2.git

Let us avoid being smart for now.

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

diff --git a/ext/threads/threads.h b/ext/threads/threads.h
index d8c0dab..d3e9c8a 100755
--- a/ext/threads/threads.h
+++ b/ext/threads/threads.h
@@ -23,7 +23,7 @@ STMT_START {\
 #include <thread.h>
 
 #define PERL_THREAD_SET_SPECIFIC(k,v) pthread_setspecific(k,v)
-#define PERL_THREAD_GET_SPECIFIC(k)   PTHREAD_GETSPECIFIC(k)
+#define PERL_THREAD_GET_SPECIFIC(k)   pthread_getspecific(k)
 #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\
   if(pthread_key_create(&(k),0)) {\
     PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\