From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 8 Jun 2009 18:00:11 +0000 (-0400)
Subject: Upgrade to threads 1.73
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=242a51a42272a23c60feb9c1b7cd686bfc28e04b;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to threads 1.73
---

diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t
index 416d371d..19ce793 100644
--- a/ext/threads/t/basic.t
+++ b/ext/threads/t/basic.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");
@@ -36,7 +32,7 @@ BEGIN {
 
 use threads;
 
-if ($threads::VERSION && ! exists($ENV{'PERL_CORE'})) {
+if ($threads::VERSION && ! $ENV{'PERL_CORE'}) {
     print(STDERR "# Testing threads $threads::VERSION\n");
 }
 
diff --git a/ext/threads/t/blocks.t b/ext/threads/t/blocks.t
index c8ea07d..921679a 100644
--- a/ext/threads/t/blocks.t
+++ b/ext/threads/t/blocks.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");
@@ -51,7 +47,7 @@ sub ok {
     } else {
         print("not ok $id - $name\n");
         printf("# Failed test at line %d\n", (caller)[2]);
-        print(STDERR "# FAIL: $name\n") if (! exists($ENV{'PERL_CORE'}));
+        print(STDERR "# FAIL: $name\n") if (! $ENV{'PERL_CORE'});
     }
 
     return ($ok);
diff --git a/ext/threads/t/context.t b/ext/threads/t/context.t
index bddb07f..c2f3b22 100644
--- a/ext/threads/t/context.t
+++ b/ext/threads/t/context.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/t/end.t b/ext/threads/t/end.t
index 1746c2b..b18baca 100644
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.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/t/err.t b/ext/threads/t/err.t
index ccfad22..9888ee0 100644
--- a/ext/threads/t/err.t
+++ b/ext/threads/t/err.t
@@ -2,12 +2,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    if ($ENV{'PERL_CORE'}){
-        chdir 't';
-        unshift @INC, '../lib';
-    }
-
-    require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
+    require($ENV{PERL_CORE} ? './test.pl' : './t/test.pl');
 
     use Config;
     if (! $Config{'useithreads'}) {
diff --git a/ext/threads/t/exit.t b/ext/threads/t/exit.t
index 76b03d6..9e9ab10 100644
--- a/ext/threads/t/exit.t
+++ b/ext/threads/t/exit.t
@@ -2,12 +2,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    if ($ENV{'PERL_CORE'}){
-        chdir 't';
-        unshift @INC, '../lib';
-    }
-
-    require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
+    require($ENV{PERL_CORE} ? './test.pl' : './t/test.pl');
 
     use Config;
     if (! $Config{'useithreads'}) {
@@ -53,7 +48,7 @@ my $rc = $thr->join();
 ok(! defined($rc), 'Exited: threads->exit()');
 
 
-run_perl(prog => 'use threads 1.72;' .
+run_perl(prog => 'use threads 1.73;' .
                  'threads->exit(86);' .
                  'exit(99);',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -103,7 +98,7 @@ $rc = $thr->join();
 ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
 
 
-run_perl(prog => 'use threads 1.72 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.73 qw(exit thread_only);' .
                  'threads->create(sub { exit(99); })->join();' .
                  'exit(86);',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -113,7 +108,7 @@ run_perl(prog => 'use threads 1.72 qw(exit thread_only);' .
     is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
 }
 
-my $out = run_perl(prog => 'use threads 1.72;' .
+my $out = run_perl(prog => 'use threads 1.73;' .
                            'threads->create(sub {' .
                            '    exit(99);' .
                            '});' .
@@ -129,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.72;' .
 like($out, '1 finished and unjoined', "exit(status) in thread");
 
 
-$out = run_perl(prog => 'use threads 1.72 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.73 qw(exit thread_only);' .
                         'threads->create(sub {' .
                         '   threads->set_thread_exit_only(0);' .
                         '   exit(99);' .
@@ -146,7 +141,7 @@ $out = run_perl(prog => 'use threads 1.72 qw(exit thread_only);' .
 like($out, '1 finished and unjoined', "set_thread_exit_only(0)");
 
 
-run_perl(prog => 'use threads 1.72;' .
+run_perl(prog => 'use threads 1.73;' .
                  'threads->create(sub {' .
                  '   $SIG{__WARN__} = sub { exit(99); };' .
                  '   die();' .
diff --git a/ext/threads/t/free.t b/ext/threads/t/free.t
index 87fdae9..b6bec81 100644
--- a/ext/threads/t/free.t
+++ b/ext/threads/t/free.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/t/free2.t b/ext/threads/t/free2.t
index c4d6981..2e0bbf0 100644
--- a/ext/threads/t/free2.t
+++ b/ext/threads/t/free2.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/t/join.t b/ext/threads/t/join.t
index af999d3..2272e07 100644
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.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/t/kill.t b/ext/threads/t/kill.t
index fe44294..f093033 100644
--- a/ext/threads/t/kill.t
+++ b/ext/threads/t/kill.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/t/libc.t b/ext/threads/t/libc.t
index 795d577..9741cce 100644
--- a/ext/threads/t/libc.t
+++ b/ext/threads/t/libc.t
@@ -2,12 +2,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    if ($ENV{'PERL_CORE'}){
-        chdir 't';
-        unshift @INC, '../lib';
-    }
-
-    require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
+    require($ENV{PERL_CORE} ? './test.pl' : './t/test.pl');
 
     use Config;
     if (! $Config{'useithreads'}) {
diff --git a/ext/threads/t/list.t b/ext/threads/t/list.t
index be769a9..1ad0fad 100644
--- a/ext/threads/t/list.t
+++ b/ext/threads/t/list.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/t/problems.t b/ext/threads/t/problems.t
index d6c80c5..ec2bf02 100644
--- a/ext/threads/t/problems.t
+++ b/ext/threads/t/problems.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/t/stack.t b/ext/threads/t/stack.t
index 7a171f5..cfd6cf7 100644
--- a/ext/threads/t/stack.t
+++ b/ext/threads/t/stack.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/t/stack_env.t b/ext/threads/t/stack_env.t
index a2dac06..e36812f 100644
--- a/ext/threads/t/stack_env.t
+++ b/ext/threads/t/stack_env.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/t/state.t b/ext/threads/t/state.t
index 01371fd..8e4f58e 100644
--- a/ext/threads/t/state.t
+++ b/ext/threads/t/state.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/t/stress_cv.t b/ext/threads/t/stress_cv.t
index b90d700..1738056 100644
--- a/ext/threads/t/stress_cv.t
+++ b/ext/threads/t/stress_cv.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/t/stress_re.t b/ext/threads/t/stress_re.t
index b9b9efc..5c25dae 100644
--- a/ext/threads/t/stress_re.t
+++ b/ext/threads/t/stress_re.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/t/stress_string.t b/ext/threads/t/stress_string.t
index e97c25f..7edbbcb 100644
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.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/t/thread.t b/ext/threads/t/thread.t
index b3407b1..531698d 100644
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -2,12 +2,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    if ($ENV{'PERL_CORE'}){
-        chdir 't';
-        unshift @INC, '../lib';
-    }
-
-    require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
+    require($ENV{PERL_CORE} ? './test.pl' : './t/test.pl');
 
     use Config;
     if (! $Config{'useithreads'}) {
@@ -166,7 +161,7 @@ package main;
 
 # bugid #24165
 
-run_perl(prog => 'use threads 1.72;' .
+run_perl(prog => 'use threads 1.73;' .
                  'sub a{threads->create(shift)} $t = a sub{};' .
                  '$t->tid; $t->join; $t->tid',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index 8d24075..a17dd77 100644
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.72_01';
+our $VERSION = '1.73';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 1.72
+This document describes threads version 1.73
 
 =head1 SYNOPSIS
 
@@ -1011,7 +1011,7 @@ L<threads> Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/threads>
 
 Annotated POD for L<threads>:
-L<http://annocpan.org/~JDHEDDEN/threads-1.72/threads.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-1.73/threads.pm>
 
 Source repository:
 L<http://code.google.com/p/threads-shared/>