This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
threads.xs broken under PERL_IMPLICIT_SYS; 5.8.8 regression
authorJan Dubois <jand@activestate.com>
Thu, 16 Mar 2006 19:34:00 +0000 (11:34 -0800)
committerSteve Peters <steve@fisharerojo.org>
Fri, 17 Mar 2006 04:40:24 +0000 (04:40 +0000)
Message-ID: <02e601c64973$a1960cf0$6062a8c0@candy>

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

p4raw-id: //depot/perl@27529

ext/threads/threads.pm
ext/threads/threads.xs

index ef66eb2..91747e7 100755 (executable)
@@ -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
index 38c5666..4ecb488 100755 (executable)
@@ -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