Fix bug #41550 - AUTOLOAD :lvalue not working the same in blead as in

[perl5.git] / thread.h

diff --git a/thread.h b/thread.h
index 20152f3..7ff71fa 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -1,6 +1,6 @@
 /*    thread.h
  *
- *    Copyright (C) 1999, 2000, 2001, 2002, 2004, 2005
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
  *    by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
@@ -98,6 +98,11 @@
 #  define THREAD_CREATE_NEEDS_STACK (32*1024)
 #endif
 
+#ifdef __VMS
+  /* Default is 1024 on VAX, 8192 otherwise */
+#  define THREAD_CREATE_NEEDS_STACK (32*1024)
+#endif
+
 #ifdef I_MACH_CTHREADS
 
 /* cthreads interface */
@@ -333,9 +338,8 @@
 #ifndef ALLOC_THREAD_KEY
 #  define ALLOC_THREAD_KEY \
     STMT_START {                                               \
-       int _eC_;                                               \
-       if ((_eC_ = pthread_key_create(&PL_thr_key, 0))) {      \
-            write(2, "panic: pthread_key_create failed\n", 33); \
+       if (pthread_key_create(&PL_thr_key, 0)) {               \
+            write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
            exit(1);                                            \
        }                                                       \
     } STMT_END