Perl_scalarvoid remove duplicate SvNV call

[perl5.git] / thread.h

diff --git a/thread.h b/thread.h
index 15d2665..43932fb 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -336,7 +336,7 @@
 #  define ALLOC_THREAD_KEY \
     STMT_START {                                               \
        if (pthread_key_create(&PL_thr_key, 0)) {               \
-            write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
+            PERL_UNUSED_RESULT(write(2, STR_WITH_LEN("panic: pthread_key_create failed\n"))); \
            exit(1);                                            \
        }                                                       \
     } STMT_END