threads 1.35 - Borland compiler fix

From: "Jerry D. Hedden" <jerry@hedden.us>
Message-ID: <20060710064934.fb30e530d17747c2b054d625b8945d88.384e3b280c.wbe@email.secureserver.net>

p4raw-id: //depot/perl@28529

diff --git a/ext/threads/Changes b/ext/threads/Changes
index 5581b8f..9e15b8b 100755 (executable)
--- a/ext/threads/Changes
+++ b/ext/threads/Changes
@@ -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

diff --git a/ext/threads/README b/ext/threads/README
index a753098..c331a36 100755 (executable)
--- a/ext/threads/README
+++ b/ext/threads/README
@@ -1,4 +1,4 @@
-threads version 1.34
+threads version 1.35
 ====================
 
 This module needs perl 5.8.0 or later compiled with 'useithreads'.

diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index bd44660..5982236 100644 (file)
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -171,7 +171,7 @@ package main;
 
 # 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,

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index 43a3be9..0152df5 100755 (executable)
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.34';
+our $VERSION = '1.35';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -113,7 +113,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 1.34
+This document describes threads version 1.35
 
 =head1 SYNOPSIS
 
@@ -593,13 +593,10 @@ expected to act upon.  Here's an example for I<cancelling> a thread:
 
     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<threads> Discussion Forum on CPAN:
 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>
 

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 40bd2d1..1f3cad1 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -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