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.

diff --git a/dist/threads-shared/lib/threads/shared.pm b/dist/threads-shared/lib/threads/shared.pm
index 9fd55d6..1bcf69d 100644 (file)
--- 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 a019732..2f3dd91 100644 (file)
--- 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 467f17f..210223d 100644 (file)
--- 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 *