Change 31794: [PATCH] threads 1.65

[Rafael Garcia-Suarez]

Change 31794 by [EMAIL PROTECTED] on 2007/09/05 13:34:25

        Subject: [PATCH] threads 1.65
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 5 Sep 2007 09:29:57 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/threads/t/exit.t#20 edit
... //depot/perl/ext/threads/t/thread.t#45 edit
... //depot/perl/ext/threads/threads.pm#91 edit

Differences ...

==== //depot/perl/ext/threads/t/exit.t#20 (text) ====
Index: perl/ext/threads/t/exit.t
--- perl/ext/threads/t/exit.t#19~31687~ 2007-08-08 09:43:49.000000000 -0700
+++ perl/ext/threads/t/exit.t   2007-09-05 06:34:25.000000000 -0700
@@ -57,7 +57,7 @@
 ok(! defined($rc), 'Exited: threads->exit()');
 
 
-run_perl(prog => 'use threads 1.64;' .
+run_perl(prog => 'use threads 1.65;' .
                  'threads->exit(86);' .
                  'exit(99);',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -107,7 +107,7 @@
 ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
 
 
-run_perl(prog => 'use threads 1.64 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.65 qw(exit thread_only);' .
                  'threads->create(sub { exit(99); })->join();' .
                  'exit(86);',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -117,7 +117,7 @@
     is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
 }
 
-my $out = run_perl(prog => 'use threads 1.64;' .
+my $out = run_perl(prog => 'use threads 1.65;' .
                            'threads->create(sub {' .
                            '    exit(99);' .
                            '});' .
@@ -133,7 +133,7 @@
 like($out, '1 finished and unjoined', "exit(status) in thread");
 
 
-$out = run_perl(prog => 'use threads 1.64 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.65 qw(exit thread_only);' .
                         'threads->create(sub {' .
                         '   threads->set_thread_exit_only(0);' .
                         '   exit(99);' .
@@ -150,7 +150,7 @@
 like($out, '1 finished and unjoined', "set_thread_exit_only(0)");
 
 
-run_perl(prog => 'use threads 1.64;' .
+run_perl(prog => 'use threads 1.65;' .
                  'threads->create(sub {' .
                  '   $SIG{__WARN__} = sub { exit(99); };' .
                  '   die();' .

==== //depot/perl/ext/threads/t/thread.t#45 (text) ====
Index: perl/ext/threads/t/thread.t
--- perl/ext/threads/t/thread.t#44~31687~       2007-08-08 09:43:49.000000000 
-0700
+++ perl/ext/threads/t/thread.t 2007-09-05 06:34:25.000000000 -0700
@@ -171,7 +171,7 @@
 
 # bugid #24165
 
-run_perl(prog => 'use threads 1.64;' .
+run_perl(prog => 'use threads 1.65;' .
                  'sub a{threads->create(shift)} $t = a sub{};' .
                  '$t->tid; $t->join; $t->tid',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,

==== //depot/perl/ext/threads/threads.pm#91 (xtext) ====
Index: perl/ext/threads/threads.pm
--- perl/ext/threads/threads.pm#90~31736~       2007-08-20 01:19:13.000000000 
-0700
+++ perl/ext/threads/threads.pm 2007-09-05 06:34:25.000000000 -0700
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.64';
+our $VERSION = '1.65';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -134,7 +134,7 @@
 
 =head1 VERSION
 
-This document describes threads version 1.64
+This document describes threads version 1.65
 
 =head1 SYNOPSIS
 
@@ -990,7 +990,7 @@
 L<http://www.cpanforum.com/dist/threads>
 
 Annotated POD for L<threads>:
-L<http://annocpan.org/~JDHEDDEN/threads-1.64/threads.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-1.65/threads.pm>
 
 Source repository:
 L<http://code.google.com/p/threads-shared/>
End of Patch.