In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ca2f5fd9a210745a82974e4f0857f678eeb297bc?hp=19eeb8f3f538405239ec8f4cff95421b9d9a3bfb>
- Log ----------------------------------------------------------------- commit ca2f5fd9a210745a82974e4f0857f678eeb297bc Author: James E Keenan <[email protected]> Date: Fri Mar 6 18:33:57 2015 -0500 perldelta entry for 34a7e7b M pod/perldelta.pod commit 34a7e7b777b1b52ca9a16732b2f1849cf0cc9547 Author: Jerry D. Hedden <[email protected]> Date: Fri Mar 6 09:23:04 2015 -0500 Upgrade to threads 1.99 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 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- dist/threads/lib/threads.pm | 4 ++-- dist/threads/t/exit.t | 10 +++++----- dist/threads/t/thread.t | 2 +- dist/threads/threads.xs | 7 +++++++ pod/perldelta.pod | 2 +- 6 files changed, 17 insertions(+), 10 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 9146b62..b69ea93 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1160,7 +1160,7 @@ use File::Glob qw(:case); }, 'threads' => { - 'DISTRIBUTION' => 'JDHEDDEN/threads-1.98.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/threads-1.99.tar.gz', 'FILES' => q[dist/threads], 'EXCLUDED' => [ qr{^examples/}, diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index 51d30fb..0e863de 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 = '1.98'; +our $VERSION = '1.99'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -134,7 +134,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 1.98 +This document describes threads version 1.99 =head1 WARNING diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t index f92f8c2..3d7d164 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 1.98;' . +run_perl(prog => 'use threads 1.99;' . '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 1.98 qw(exit thread_only);' . +run_perl(prog => 'use threads 1.99 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 1.98 qw(exit thread_only);' . is($?>>8, 86, "'use threads 'exit' => 'thread_only'"); } -my $out = run_perl(prog => 'use threads 1.98;' . +my $out = run_perl(prog => 'use threads 1.99;' . 'threads->create(sub {' . ' exit(99);' . '});' . @@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.98;' . like($out, qr/1 finished and unjoined/, "exit(status) in thread"); -$out = run_perl(prog => 'use threads 1.98 qw(exit thread_only);' . +$out = run_perl(prog => 'use threads 1.99 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 1.98 qw(exit thread_only);' . like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)"); -run_perl(prog => 'use threads 1.98;' . +run_perl(prog => 'use threads 1.99;' . 'threads->create(sub {' . ' $SIG{__WARN__} = sub { exit(99); };' . ' die();' . diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t index 60a5544..8582eba 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 1.98;' . +run_perl(prog => 'use threads 1.99;' . '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 3bbca65..f5395cf 100644 --- a/dist/threads/threads.xs +++ b/dist/threads/threads.xs @@ -28,6 +28,13 @@ #ifndef sv_dup_inc # define sv_dup_inc(s,t) SvREFCNT_inc(sv_dup(s,t)) #endif +#ifndef PERL_UNUSED_RESULT +# if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT) +# define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END +# else +# define PERL_UNUSED_RESULT(v) ((void)(v)) +# endif +#endif #ifdef USE_ITHREADS diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 830da13..667364f 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -165,7 +165,7 @@ No changes to installed files other than the version bump. =item * -L<threads> has been upgraded from version 1.96 to 1.98. +L<threads> has been upgraded from version 1.96 to 1.99. =back -- Perl5 Master Repository
