X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/03acb64848c7cc3a02259a87b82a11a401c46810..e184c4bc222629feb8f4576f8314becd9990ab41:/thread.h

diff --git a/thread.h b/thread.h
index de23d75..cd55635 100644
--- a/thread.h
+++ b/thread.h
@@ -336,7 +336,9 @@
 #  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