Change 28529 by [EMAIL PROTECTED] on 2006/07/10 14:04:00
Subject: [PATCH] threads 1.35 - Borland compiler fix
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Mon, 10 Jul 2006 06:49:34 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/threads/Changes#14 edit
... //depot/perl/ext/threads/README#13 edit
... //depot/perl/ext/threads/t/thread.t#19 edit
... //depot/perl/ext/threads/threads.pm#64 edit
... //depot/perl/ext/threads/threads.xs#113 edit
Differences ...
==== //depot/perl/ext/threads/Changes#14 (xtext) ====
Index: perl/ext/threads/Changes
--- perl/ext/threads/Changes#13~28501~ 2006-07-07 07:12:59.000000000 -0700
+++ perl/ext/threads/Changes 2006-07-10 07:04:00.000000000 -0700
@@ -1,5 +1,9 @@
Revision history for Perl extension threads.
+1.35 - Mon Jul 10 09:44:47 EDT 2006
+ - Upgraded ppport.h to Devel::PPPort 3.09
+ - Fix for Borland compiler
+
1.34 Thu Jul 6 10:29:37 EDT 2006
- Added ->is_running, ->is_detached, ->is_joinable, ->wantarray
- Enhanced ->list to return running or joinable threads
==== //depot/perl/ext/threads/README#13 (xtext) ====
Index: perl/ext/threads/README
--- perl/ext/threads/README#12~28501~ 2006-07-07 07:12:59.000000000 -0700
+++ perl/ext/threads/README 2006-07-10 07:04:00.000000000 -0700
@@ -1,4 +1,4 @@
-threads version 1.34
+threads version 1.35
====================
This module needs perl 5.8.0 or later compiled with 'useithreads'.
==== //depot/perl/ext/threads/t/thread.t#19 (text) ====
Index: perl/ext/threads/t/thread.t
--- perl/ext/threads/t/thread.t#18~28501~ 2006-07-07 07:12:59.000000000
-0700
+++ perl/ext/threads/t/thread.t 2006-07-10 07:04:00.000000000 -0700
@@ -171,7 +171,7 @@
# bugid #24165
-run_perl(prog => 'use threads 1.34;
+run_perl(prog => 'use threads 1.35;
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#64 (xtext) ====
Index: perl/ext/threads/threads.pm
--- perl/ext/threads/threads.pm#63~28501~ 2006-07-07 07:12:59.000000000
-0700
+++ perl/ext/threads/threads.pm 2006-07-10 07:04:00.000000000 -0700
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '1.34';
+our $VERSION = '1.35';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -113,7 +113,7 @@
=head1 VERSION
-This document describes threads version 1.34
+This document describes threads version 1.35
=head1 SYNOPSIS
@@ -593,13 +593,10 @@
use threads;
- # Suppress warning message when thread is 'killed'
- no warnings 'threads';
-
sub thr_func
{
# Thread 'cancellation' signal handler
- $SIG{'KILL'} = sub { die("Thread killed\n"); };
+ $SIG{'KILL'} = sub { threads->exit(); };
...
}
@@ -807,7 +804,7 @@
L<http://www.cpanforum.com/dist/threads>
Annotated POD for L<threads>:
-L<http://annocpan.org/~JDHEDDEN/threads-1.34/threads.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-1.35/threads.pm>
L<threads::shared>, L<perlthrtut>
==== //depot/perl/ext/threads/threads.xs#113 (xtext) ====
Index: perl/ext/threads/threads.xs
--- perl/ext/threads/threads.xs#112~28501~ 2006-07-07 07:12:59.000000000
-0700
+++ perl/ext/threads/threads.xs 2006-07-10 07:04:00.000000000 -0700
@@ -5,7 +5,9 @@
/* Workaround for XSUB.h bug under WIN32 */
#ifdef WIN32
# undef setjmp
-# define setjmp(x) _setjmp(x)
+# if !defined(__BORLANDC__)
+# define setjmp(x) _setjmp(x)
+# endif
#endif
#ifdef HAS_PPPORT_H
# define NEED_PL_signals
End of Patch.
