# define ALLOC_THREAD_KEY \
STMT_START { \
if (pthread_key_create(&PL_thr_key, 0)) { \
- (void)write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
+ int rc; \
+ rc = write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
+ PERL_UNUSED_VAR(rc); \
exit(1); \
} \
} STMT_END