threads.xs broken under PERL_IMPLICIT_SYS; 5.8.8 regression

Message-ID: <02e601c64973$a1960cf0$6062a8c0@candy>

Also includes a version bump to ext/threads/threads.pm.

p4raw-id: //depot/perl@27529

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index ef66eb2c53949fc437cb14e5873a19861be0e3c4..91747e7ebe3f6fb3e14ed3b2091d69d6168e01d8 100755 (executable)
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -50,7 +50,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 our @EXPORT = qw(
 async  
 );
-our $VERSION = '1.07';
+our $VERSION = '1.07_01';
 
 
 # || 0 to ensure compatibility with previous versions

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 38c56660f37fb6c7dd7fa6ba71563f2bf656e1d6..4ecb48873d7bdf453e800448720fd6d6c47ed9b5 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -167,6 +167,7 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why)
        /* Thread is now disowned */
 
        S_ithread_clear(aTHX_ thread);
+        aTHX = PL_curinterp;
        MUTEX_UNLOCK(&thread->mutex);
        MUTEX_DESTROY(&thread->mutex);
 #ifdef WIN32