diff options
| author | Jan Dubois <jand@activestate.com> | 2006-03-16 11:34:00 -0800 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-03-17 04:40:24 +0000 |
| commit | cad5770baea7f83c8716f298d13255e7d95f9c68 (patch) | |
| tree | 14647539fd4e3ea88e9f19184e24dce47a1ad5c8 /ext/threads | |
| parent | db2fab4887d7a0167a72ea9848aab50a7132bbbb (diff) | |
| download | perl-cad5770baea7f83c8716f298d13255e7d95f9c68.tar.gz | |
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
Diffstat (limited to 'ext/threads')
| -rwxr-xr-x | ext/threads/threads.pm | 2 | ||||
| -rwxr-xr-x | ext/threads/threads.xs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm index ef66eb2c53..91747e7ebe 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 38c56660f3..4ecb48873d 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 |