In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/58e76350f3236d53f018cbec0478a1c66fa0aba1?hp=56d02b8ccd734cf5d90ee929ed273d258ecae7c1>
- Log ----------------------------------------------------------------- commit 58e76350f3236d53f018cbec0478a1c66fa0aba1 Author: Jerry D. Hedden <[email protected]> Date: Wed Dec 28 11:37:45 2016 -0500 Silence one warnings generated during 'make' by clang. See: https://rt.cpan.org/Ticket/Display.html?id=119529 Committer: Update version number in module's POD. Add perldelta entry. ----------------------------------------------------------------------- Summary of changes: dist/threads-shared/lib/threads/shared.pm | 4 ++-- dist/threads-shared/shared.xs | 8 ++++++++ pod/perldelta.pod | 4 ++++ 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/dist/threads-shared/lib/threads/shared.pm b/dist/threads-shared/lib/threads/shared.pm index 9fd55d69cf..1bcf69d5f1 100644 --- a/dist/threads-shared/lib/threads/shared.pm +++ b/dist/threads-shared/lib/threads/shared.pm @@ -7,7 +7,7 @@ use warnings; use Scalar::Util qw(reftype refaddr blessed); -our $VERSION = '1.52'; # Please update the pod, too. +our $VERSION = '1.53'; # Please update the pod, too. my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -195,7 +195,7 @@ threads::shared - Perl extension for sharing data structures between threads =head1 VERSION -This document describes threads::shared version 1.52 +This document describes threads::shared version 1.53 =head1 SYNOPSIS diff --git a/dist/threads-shared/shared.xs b/dist/threads-shared/shared.xs index a019732af8..2f3dd912d8 100644 --- a/dist/threads-shared/shared.xs +++ b/dist/threads-shared/shared.xs @@ -656,7 +656,15 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs) abs -= (NV)ts.tv_sec; ts.tv_nsec = (long)(abs * 1000000000.0); + CLANG_DIAG_IGNORE(-Wthread-safety); + /* warning: calling function 'pthread_cond_timedwait' requires holding mutex 'mut' exclusively [-Wthread-safety-analysis] */ + switch (pthread_cond_timedwait(cond, mut, &ts)) { + +#if defined(__clang__) || defined(__clang) +CLANG_DIAG_RESTORE; +#endif + case 0: got_it = 1; break; case ETIMEDOUT: break; #ifdef OEMVS diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 467f17fe42..210223deb8 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -195,6 +195,10 @@ L<Test> has been upgraded from version 1.29 to 1.30. =item * +L<threads::shared> has been upgraded from version 1.52 to 1.53. + +=item * + L<Unicode::UCD> has been upgraded from version 0.67 to 0.68. =item * -- Perl5 Master Repository
