The first big import towards 5.8.1, @18078. Please do NOT

[perl5.git] / thread.h

diff --git a/thread.h b/thread.h
index e9933e2..7371c81 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -266,7 +266,7 @@
  * It would fail if the key were bogus, but if the key were bogus then
  * Really Bad Things would be happening anyway. --dan */
 #if (defined(__ALPHA) && (__VMS_VER >= 70000000)) || \
-    (defined(__alpha) && defined(__osf__)) /* Available only on >= 4.0 */
+    (defined(__alpha) && defined(__osf__) && !defined(__GNUC__)) /* Available only on >= 4.0 */
 #  define HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP /* Configure test needed */
 #endif