summaryrefslogtreecommitdiff
path: root/thread.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-29 06:01:22 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-29 06:01:22 +0000
commitc44d3fdb45c0c48dcd8af6dc9f4a4166137bf839 (patch)
treeec79e5cbf9765f15fbfee480090143a506a9000d /thread.h
parentba869debd80c55cfae8e9d4de0991d62f9efcb9b (diff)
downloadperl-c44d3fdb45c0c48dcd8af6dc9f4a4166137bf839.tar.gz
various shenanigans in change#5342
p4raw-link: @5342 on //depot/perl: ba869debd80c55cfae8e9d4de0991d62f9efcb9b p4raw-id: //depot/perl@5343
Diffstat (limited to 'thread.h')
-rw-r--r--thread.h6
1 files changed, 4 insertions, 2 deletions
diff --git a/thread.h b/thread.h
index 09ed596a52..72292b50c1 100644
--- 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