In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/63790022394e4278430e337fa8d8576711061741?hp=cb097e7a7eb1098f10246724baff2d8189ac41c5>
- Log ----------------------------------------------------------------- commit 63790022394e4278430e337fa8d8576711061741 Author: Jerry D. Hedden <[email protected]> Date: Fri Jun 19 13:00:40 2009 -0400 Upgrade to threads::shared 1.29 ----------------------------------------------------------------------- Summary of changes: ext/threads-shared/Makefile.PL | 2 +- ext/threads-shared/shared.pm | 8 ++++---- ext/threads-shared/t/0nothread.t | 9 +-------- ext/threads-shared/t/av_refs.t | 4 ---- ext/threads-shared/t/av_simple.t | 4 ---- ext/threads-shared/t/blessed.t | 4 ---- ext/threads-shared/t/clone.t | 4 ---- ext/threads-shared/t/cond.t | 4 ---- ext/threads-shared/t/disabled.t | 7 ------- ext/threads-shared/t/hv_refs.t | 4 ---- ext/threads-shared/t/hv_simple.t | 4 ---- ext/threads-shared/t/no_share.t | 4 ---- ext/threads-shared/t/object.t | 4 ---- ext/threads-shared/t/shared_attr.t | 4 ---- ext/threads-shared/t/stress.t | 4 ---- ext/threads-shared/t/sv_refs.t | 4 ---- ext/threads-shared/t/sv_simple.t | 4 ---- ext/threads-shared/t/utf8.t | 4 ---- ext/threads-shared/t/wait.t | 5 ----- ext/threads-shared/t/waithires.t | 5 ----- 20 files changed, 6 insertions(+), 86 deletions(-) diff --git a/ext/threads-shared/Makefile.PL b/ext/threads-shared/Makefile.PL index 7856617..05c7383 100755 --- a/ext/threads-shared/Makefile.PL +++ b/ext/threads-shared/Makefile.PL @@ -62,7 +62,7 @@ if (not grep { $_ eq 'PERL_CORE=1' } @ARGV) { 'Carp' => 0, 'XSLoader' => 0, 'Scalar::Util' => 0, - 'threads' => 1.71, + 'threads' => 1.73, 'Test' => 0, 'Test::More' => 0, diff --git a/ext/threads-shared/shared.pm b/ext/threads-shared/shared.pm index 6f606b0..722e3ce 100644 --- a/ext/threads-shared/shared.pm +++ b/ext/threads-shared/shared.pm @@ -7,7 +7,7 @@ use warnings; use Scalar::Util qw(reftype refaddr blessed); -our $VERSION = '1.28'; +our $VERSION = '1.29'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -187,7 +187,7 @@ threads::shared - Perl extension for sharing data structures between threads =head1 VERSION -This document describes threads::shared version 1.28 +This document describes threads::shared version 1.29 =head1 SYNOPSIS @@ -401,7 +401,7 @@ important to check the value of the variable and go back to waiting if the requirement is not fulfilled. For example, to pause until a shared counter drops to zero: - { lock($counter); cond_wait($count) until $counter == 0; } + { lock($counter); cond_wait($counter) until $counter == 0; } =item cond_timedwait VARIABLE, ABS_TIMEOUT @@ -588,7 +588,7 @@ L<threads::shared> Discussion Forum on CPAN: L<http://www.cpanforum.com/dist/threads-shared> Annotated POD for L<threads::shared>: -L<http://annocpan.org/~JDHEDDEN/threads-shared-1.28/shared.pm> +L<http://annocpan.org/~JDHEDDEN/threads-shared-1.29/shared.pm> Source repository: L<http://code.google.com/p/threads-shared/> diff --git a/ext/threads-shared/t/0nothread.t b/ext/threads-shared/t/0nothread.t index 36b1564..7609fbe 100644 --- a/ext/threads-shared/t/0nothread.t +++ b/ext/threads-shared/t/0nothread.t @@ -1,13 +1,6 @@ use strict; use warnings; -BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } -} - use Test::More (tests => 53); ### Start of Testing ### @@ -65,7 +58,7 @@ sub array ok((require threads::shared),"Require module"); -if ($threads::shared::VERSION && ! exists($ENV{'PERL_CORE'})) { +if ($threads::shared::VERSION && ! $ENV{'PERL_CORE'}) { diag('Testing threads::shared ' . $threads::shared::VERSION); } diff --git a/ext/threads-shared/t/av_refs.t b/ext/threads-shared/t/av_refs.t index 2e77031..8106e32 100644 --- a/ext/threads-shared/t/av_refs.t +++ b/ext/threads-shared/t/av_refs.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/av_simple.t b/ext/threads-shared/t/av_simple.t index 67d9a32..7fab9b2 100644 --- a/ext/threads-shared/t/av_simple.t +++ b/ext/threads-shared/t/av_simple.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/blessed.t b/ext/threads-shared/t/blessed.t index 225725f..2599423 100644 --- a/ext/threads-shared/t/blessed.t +++ b/ext/threads-shared/t/blessed.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/clone.t b/ext/threads-shared/t/clone.t index 64ef93a..fd31181 100644 --- a/ext/threads-shared/t/clone.t +++ b/ext/threads-shared/t/clone.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/cond.t b/ext/threads-shared/t/cond.t index 3a6bfdf..c2f02a4 100644 --- a/ext/threads-shared/t/cond.t +++ b/ext/threads-shared/t/cond.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/disabled.t b/ext/threads-shared/t/disabled.t index 161bc79..46e781e 100644 --- a/ext/threads-shared/t/disabled.t +++ b/ext/threads-shared/t/disabled.t @@ -1,13 +1,6 @@ use strict; use warnings; -BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } -} - use Test; plan tests => 31; diff --git a/ext/threads-shared/t/hv_refs.t b/ext/threads-shared/t/hv_refs.t index 3985b3c..ecefdc6 100644 --- a/ext/threads-shared/t/hv_refs.t +++ b/ext/threads-shared/t/hv_refs.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/hv_simple.t b/ext/threads-shared/t/hv_simple.t index e80cd08..574d8d5 100644 --- a/ext/threads-shared/t/hv_simple.t +++ b/ext/threads-shared/t/hv_simple.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/no_share.t b/ext/threads-shared/t/no_share.t index 7c97b22..21703ae 100644 --- a/ext/threads-shared/t/no_share.t +++ b/ext/threads-shared/t/no_share.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/object.t b/ext/threads-shared/t/object.t index 394ed6a..4e3c189 100644 --- a/ext/threads-shared/t/object.t +++ b/ext/threads-shared/t/object.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/shared_attr.t b/ext/threads-shared/t/shared_attr.t index 09f2310..9085e27 100644 --- a/ext/threads-shared/t/shared_attr.t +++ b/ext/threads-shared/t/shared_attr.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/stress.t b/ext/threads-shared/t/stress.t index 9fe1c21..e36ab0a 100644 --- a/ext/threads-shared/t/stress.t +++ b/ext/threads-shared/t/stress.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/sv_refs.t b/ext/threads-shared/t/sv_refs.t index 30173bd..5cc6a22 100644 --- a/ext/threads-shared/t/sv_refs.t +++ b/ext/threads-shared/t/sv_refs.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/sv_simple.t b/ext/threads-shared/t/sv_simple.t index f4cbcf2..9d264f7 100644 --- a/ext/threads-shared/t/sv_simple.t +++ b/ext/threads-shared/t/sv_simple.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/utf8.t b/ext/threads-shared/t/utf8.t index 42e7c3f..6e0e664 100644 --- a/ext/threads-shared/t/utf8.t +++ b/ext/threads-shared/t/utf8.t @@ -2,10 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); diff --git a/ext/threads-shared/t/wait.t b/ext/threads-shared/t/wait.t index b0a7cc1..2c367fd 100644 --- a/ext/threads-shared/t/wait.t +++ b/ext/threads-shared/t/wait.t @@ -2,11 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } - # Import test.pl into its own package { package Test; diff --git a/ext/threads-shared/t/waithires.t b/ext/threads-shared/t/waithires.t index 4cda602..ae82448 100644 --- a/ext/threads-shared/t/waithires.t +++ b/ext/threads-shared/t/waithires.t @@ -2,11 +2,6 @@ use strict; use warnings; BEGIN { - if ($ENV{'PERL_CORE'}){ - chdir 't'; - unshift @INC, '../lib'; - } - # Import test.pl into its own package { package Test; -- Perl5 Master Repository
