From c0ff91434bb064739ba5081baa33cddd88fc5726 Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Tue, 3 Mar 2015 18:30:54 -0500
Subject: [PATCH 1/1] Upgrade to threads 1.97

Committer actions: (1) regen for t/porting/customized.dat.
(2) perldelta for update to threads.
---
 Porting/Maintainers.pl      |  2 +-
 dist/threads/lib/threads.pm |  4 ++--
 dist/threads/t/exit.t       | 10 +++++-----
 dist/threads/t/thread.t     |  2 +-
 pod/perldelta.pod           |  4 ++++
 t/porting/customized.dat    |  2 +-
 6 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 0e0b890..50aedc2 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1175,7 +1175,7 @@ use File::Glob qw(:case);
     },
 
     'threads' => {
-        'DISTRIBUTION' => 'JDHEDDEN/threads-1.96.tar.gz',
+        'DISTRIBUTION' => 'JDHEDDEN/threads-1.97.tar.gz',
         'FILES'        => q[dist/threads],
         'CUSTOMIZED'   => [
             # Waiting to be merged upstream: see CPAN RT#100755
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm
index 9de8724..47c6ccb 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.96_001';
+our $VERSION = '1.97';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 1.96
+This document describes threads version 1.97
 
 =head1 WARNING
 
diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t
index 4ccde34..a112e6f 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.96;' .
+run_perl(prog => 'use threads 1.97;' .
                  '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.96 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.97 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.96 qw(exit thread_only);' .
     is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
 }
 
-my $out = run_perl(prog => 'use threads 1.96;' .
+my $out = run_perl(prog => 'use threads 1.97;' .
                            'threads->create(sub {' .
                            '    exit(99);' .
                            '});' .
@@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.96;' .
 like($out, qr/1 finished and unjoined/, "exit(status) in thread");
 
 
-$out = run_perl(prog => 'use threads 1.96 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.97 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.96 qw(exit thread_only);' .
 like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)");
 
 
-run_perl(prog => 'use threads 1.96;' .
+run_perl(prog => 'use threads 1.97;' .
                  'threads->create(sub {' .
                  '   $SIG{__WARN__} = sub { exit(99); };' .
                  '   die();' .
diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t
index e668e62..40407bc 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.96;' .
+run_perl(prog => 'use threads 1.97;' .
                  '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 672a28a..7aa590b 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -157,6 +157,10 @@ L<[cpan #95271]|https://rt.cpan.org/Ticket/Display.html?id=95271>
 
 =back
 
+=item *
+
+L<threads> has been upgraded from version 1.96 to 1.97.
+
 =back
 
 =head2 Removed Modules and Pragmata
diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 212cc29..bc9815d 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -16,7 +16,7 @@ Text::ParseWords cpan/Text-ParseWords/t/ParseWords.t 9bae51c9b944cd5c0bbabe9d397
 Text::ParseWords cpan/Text-ParseWords/t/taint.t 3cff0dae812801f7aa1738d6070508f2c5bcc2e5
 podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6
 podlators cpan/podlators/scripts/pod2text.PL b4693fcfe4a0a1b38a215cfb8985a65d5d025d69
-threads dist/threads/lib/threads.pm e1b210ff6d66a0e1d43aa8f040954fc811e3d250
+threads dist/threads/lib/threads.pm 0ca973d4537d7c8ee5884cc413e602b5b9ed74d7
 threads dist/threads/threads.xs f492e1266d30f62faba625bee1d11652eb349955
 version cpan/version/lib/version.pm d0923b895d57f1d669ae36fcf85c87b16db341d1
 version vutil.c 668f17ca43e2527645674d29ba772b86330d5663
-- 
1.8.3.1