better {local,gm}time documentation (from Mark-Jason Dominus)

[p5sagit/p5-mst-13.2.git] / thread.h

diff --git a/thread.h b/thread.h
index 09ed596..72292b5 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -264,8 +264,10 @@
 #ifndef ALLOC_THREAD_KEY
 #  define ALLOC_THREAD_KEY \
     STMT_START {                                               \
-       if (pthread_key_create(&PL_thr_key, 0))                 \
-           Perl_croak(aTHX_ "panic: pthread_key_create");      \
+       if (pthread_key_create(&PL_thr_key, 0)) {               \
+           fprintf(stderr, "panic: pthread_key_create");       \
+           exit(1);                                            \
+       }                                                       \
     } STMT_END
 #endif