From 85ca3be751f142ad43c1dabcac68ab17a69c4c4d Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Wed, 14 Dec 2011 23:02:38 +0000
Subject: [PATCH] Update threads to CPAN version 1.86

  [DELTA]

  1.86 Wed Dec 14 21:12:51 2011
    - Fix for mingw-w64 build due to setjmp difference
---
 Porting/Maintainers.pl  |  2 +-
 dist/threads/t/exit.t   | 10 +++++-----
 dist/threads/t/thread.t |  2 +-
 pod/perldelta.pod       |  4 ++++
 4 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index de1171e..fc8b969 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1834,7 +1834,7 @@ use File::Glob qw(:case);
 
     'threads' => {
         'MAINTAINER'   => 'jdhedden',
-        'DISTRIBUTION' => 'JDHEDDEN/threads-1.85.tar.gz',
+        'DISTRIBUTION' => 'JDHEDDEN/threads-1.86.tar.gz',
         'FILES'        => q[dist/threads],
         'EXCLUDED'     => [
             qr{^examples/},
diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t
index d96461c..5d30950 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.85;' .
+run_perl(prog => 'use threads 1.86;' .
                  '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.85 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.86 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.85 qw(exit thread_only);' .
     is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
 }
 
-my $out = run_perl(prog => 'use threads 1.85;' .
+my $out = run_perl(prog => 'use threads 1.86;' .
                            'threads->create(sub {' .
                            '    exit(99);' .
                            '});' .
@@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.85;' .
 like($out, '1 finished and unjoined', "exit(status) in thread");
 
 
-$out = run_perl(prog => 'use threads 1.85 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.86 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.85 qw(exit thread_only);' .
 like($out, '1 finished and unjoined', "set_thread_exit_only(0)");
 
 
-run_perl(prog => 'use threads 1.85;' .
+run_perl(prog => 'use threads 1.86;' .
                  'threads->create(sub {' .
                  '   $SIG{__WARN__} = sub { exit(99); };' .
                  '   die();' .
diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t
index aab2af0..548c695 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.85;' .
+run_perl(prog => 'use threads 1.86;' .
                  'sub a{threads->create(shift)} $t = a sub{};' .
                  '$t->tid; $t->join; $t->tid',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 387f61d..245e355 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -349,6 +349,10 @@ L<Socket> has been upgraded from version 1.94_02 to version 1.96.
 
 =item *
 
+L<threads> has been upgraded from version 1.85 to version 1.86.
+
+=item *
+
 L<Unicode::Collate> has been upgraded from version 0.85 to version 0.87.
 
 Tailored compatibility ideographs as well as unified ideographs for
-- 
2.7.4