From: Jan Dubois <jand@activestate.com>
Date: Thu, 16 Mar 2006 19:34:00 +0000 (-0800)
Subject: threads.xs broken under PERL_IMPLICIT_SYS; 5.8.8 regression
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cad5770baea7f83c8716f298d13255e7d95f9c68;p=p5sagit%2Fp5-mst-13.2.git

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 ef66eb2..91747e7 100755
--- 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 38c5666..4ecb488 100755
--- 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