This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
avoid unnecessary noise from lib/h2xs.t
[perl5.git]
/
thread.h
diff --git
a/thread.h
b/thread.h
index
15d2665
..
1fb1cc6
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)) { \
# 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
exit(1); \
} \
} STMT_END
@@
-431,11
+431,5
@@
#endif
/*
#endif
/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
* ex: set ts=8 sts=4 sw=4 et:
*/
* ex: set ts=8 sts=4 sw=4 et:
*/