In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/99fcc83522102cdf7673a78ef88144bd9c093f5a?hp=8a6aac01b357b1712b6af0e9295067de745ebda3>
- Log -----------------------------------------------------------------
commit 99fcc83522102cdf7673a78ef88144bd9c093f5a
Author: jdhedden <jdhed...@cpan.org>
Date: Sun May 7 18:33:39 2017 -0400
Upgrade to threads 2.16
M Porting/Maintainers.pl
M dist/threads/lib/threads.pm
M dist/threads/t/exit.t
M dist/threads/t/thread.t
M dist/threads/threads.xs
commit 7ce27a6f2b89dae3defa2524b76268114d9aa220
Author: jdhedden <jdhed...@cpan.org>
Date: Sun May 7 18:48:59 2017 -0400
Upgrade to threads::shared 1.57
M Porting/Maintainers.pl
M dist/threads-shared/lib/threads/shared.pm
M dist/threads-shared/shared.xs
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 4 ++--
dist/threads-shared/lib/threads/shared.pm | 4 ++--
dist/threads-shared/shared.xs | 5 +++--
dist/threads/lib/threads.pm | 4 ++--
dist/threads/t/exit.t | 10 +++++-----
dist/threads/t/thread.t | 2 +-
dist/threads/threads.xs | 5 +++--
7 files changed, 18 insertions(+), 16 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index af7b807c56..3c1b8486ba 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1161,7 +1161,7 @@ use File::Glob qw(:case);
},
'threads' => {
- 'DISTRIBUTION' => 'JDHEDDEN/threads-2.15.tar.gz',
+ 'DISTRIBUTION' => 'JDHEDDEN/threads-2.16.tar.gz',
'FILES' => q[dist/threads],
'EXCLUDED' => [
qr{^examples/},
@@ -1173,7 +1173,7 @@ use File::Glob qw(:case);
},
'threads::shared' => {
- 'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.55.tar.gz',
+ 'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.57.tar.gz',
'FILES' => q[dist/threads-shared],
'EXCLUDED' => [
qw( examples/class.pl
diff --git a/dist/threads-shared/lib/threads/shared.pm
b/dist/threads-shared/lib/threads/shared.pm
index 73c4dd997f..9be89f33f2 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.56'; # Please update the pod, too.
+our $VERSION = '1.57'; # 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.56
+This document describes threads::shared version 1.57
=head1 SYNOPSIS
diff --git a/dist/threads-shared/shared.xs b/dist/threads-shared/shared.xs
index 3c1b5e608c..40207aa88b 100644
--- a/dist/threads-shared/shared.xs
+++ b/dist/threads-shared/shared.xs
@@ -656,14 +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);
-#if defined(__clang__) || defined(__clang)
+#if defined(CLANG_DIAG_IGNORE)
CLANG_DIAG_IGNORE(-Wthread-safety);
/* warning: calling function 'pthread_cond_timedwait' requires holding
mutex 'mut' exclusively [-Wthread-safety-analysis] */
#endif
switch (pthread_cond_timedwait(cond, mut, &ts)) {
-#if defined(__clang__) || defined(__clang)
+/* perl.h defines CLANG_DIAG_* but only in 5.24+ */
+#if defined(CLANG_DIAG_RESTORE)
CLANG_DIAG_RESTORE;
#endif
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm
index d174f72496..2c37a61907 100644
--- a/dist/threads/lib/threads.pm
+++ b/dist/threads/lib/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
use strict;
use warnings;
-our $VERSION = '2.15';
+our $VERSION = '2.16';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
=head1 VERSION
-This document describes threads version 2.15
+This document describes threads version 2.16
=head1 WARNING
diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t
index bad602f8bb..4e0286605e 100644
--- a/dist/threads/t/exit.t
+++ b/dist/threads/t/exit.t
@@ -48,7 +48,7 @@ my $rc = $thr->join();
ok(! defined($rc), 'Exited: threads->exit()');
-run_perl(prog => 'use threads 2.15;' .
+run_perl(prog => 'use threads 2.16;' .
'threads->exit(86);' .
'exit(99);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -98,7 +98,7 @@ $rc = $thr->join();
ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
-run_perl(prog => 'use threads 2.15 qw(exit thread_only);' .
+run_perl(prog => 'use threads 2.16 qw(exit thread_only);' .
'threads->create(sub { exit(99); })->join();' .
'exit(86);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -108,7 +108,7 @@ run_perl(prog => 'use threads 2.15 qw(exit thread_only);' .
is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
}
-my $out = run_perl(prog => 'use threads 2.15;' .
+my $out = run_perl(prog => 'use threads 2.16;' .
'threads->create(sub {' .
' exit(99);' .
'});' .
@@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 2.15;' .
like($out, qr/1 finished and unjoined/, "exit(status) in thread");
-$out = run_perl(prog => 'use threads 2.15 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 2.16 qw(exit thread_only);' .
'threads->create(sub {' .
' threads->set_thread_exit_only(0);' .
' exit(99);' .
@@ -141,7 +141,7 @@ $out = run_perl(prog => 'use threads 2.15 qw(exit
thread_only);' .
like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)");
-run_perl(prog => 'use threads 2.15;' .
+run_perl(prog => 'use threads 2.16;' .
'threads->create(sub {' .
' $SIG{__WARN__} = sub { exit(99); };' .
' die();' .
diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t
index 8f4f156967..c63250c353 100644
--- a/dist/threads/t/thread.t
+++ b/dist/threads/t/thread.t
@@ -161,7 +161,7 @@ package main;
# bugid #24165
-run_perl(prog => 'use threads 2.15;' .
+run_perl(prog => 'use threads 2.16;' .
'sub a{threads->create(shift)} $t = a sub{};' .
'$t->tid; $t->join; $t->tid',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs
index 838276545c..c519ad4f4d 100644
--- a/dist/threads/threads.xs
+++ b/dist/threads/threads.xs
@@ -1016,12 +1016,13 @@ S_ithread_create(
MUTEX_UNLOCK(&my_pool->create_destruct_mutex);
return (thread);
-#if defined(__clang__) || defined(__clang)
+#if defined(CLANG_DIAG_IGNORE)
CLANG_DIAG_IGNORE(-Wthread-safety);
/* warning: mutex 'thread->mutex' is not held on every path through here
[-Wthread-safety-analysis] */
#endif
}
-#if defined(__clang__) || defined(__clang)
+/* perl.h defines CLANG_DIAG_* but only in 5.24+ */
+#if defined(CLANG_DIAG_RESTORE)
CLANG_DIAG_RESTORE
#endif
--
Perl5 Master Repository
