Change 27529: [PATCH] threads.xs broken under PERL_IMPLICIT_SYS; 5.8.8 regression

[Steve Peters]

Change 27529 by [EMAIL PROTECTED] on 2006/03/17 04:40:24

        Subject: [PATCH] threads.xs broken under PERL_IMPLICIT_SYS; 5.8.8 
regression 
        From: Jan Dubois <[EMAIL PROTECTED]> 
        Date: Thu, 16 Mar 2006 19:34:00 -0800
        Message-ID: <[EMAIL PROTECTED]> 
        
        Also includes a version bump to ext/threads/threads.pm.

Affected files ...

... //depot/perl/ext/threads/threads.pm#45 edit
... //depot/perl/ext/threads/threads.xs#93 edit

Differences ...

==== //depot/perl/ext/threads/threads.pm#45 (xtext) ====
Index: perl/ext/threads/threads.pm
--- perl/ext/threads/threads.pm#44~25912~       2005-10-31 00:40:23.000000000 
-0800
+++ perl/ext/threads/threads.pm 2006-03-16 20:40:24.000000000 -0800
@@ -50,7 +50,7 @@
 our @EXPORT = qw(
 async  
 );
-our $VERSION = '1.07';
+our $VERSION = '1.07_01';
 
 
 # || 0 to ensure compatibility with previous versions

==== //depot/perl/ext/threads/threads.xs#93 (xtext) ====
Index: perl/ext/threads/threads.xs
--- perl/ext/threads/threads.xs#92~27169~       2006-02-13 07:12:58.000000000 
-0800
+++ perl/ext/threads/threads.xs 2006-03-16 20:40:24.000000000 -0800
@@ -167,6 +167,7 @@
        /* Thread is now disowned */
 
        S_ithread_clear(aTHX_ thread);
+        aTHX = PL_curinterp;
        MUTEX_UNLOCK(&thread->mutex);
        MUTEX_DESTROY(&thread->mutex);
 #ifdef WIN32
End of Patch.