diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-17 18:05:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-17 18:05:30 +0000 |
| commit | 3307a0c55ca8bb4e0c9a7d4f6856fee33d4f8701 (patch) | |
| tree | f86859054a68cb07650437b7f94afa8ffee0a0a0 /ext | |
| parent | c99e3826c46ffcfffa9fb9cdc6d049c77e4d8112 (diff) | |
| download | perl-3307a0c55ca8bb4e0c9a7d4f6856fee33d4f8701.tar.gz | |
Holding a mutex then croak()ing strikes me as deadlock.
p4raw-id: //depot/perl@25442
Diffstat (limited to 'ext')
| -rwxr-xr-x | ext/threads/threads.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index d80f09349f..272a2a6dc9 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -96,6 +96,7 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why) PerlInterpreter *freeperl = NULL; MUTEX_LOCK(&thread->mutex); if (!thread->next) { + MUTEX_UNLOCK(&thread->mutex); Perl_croak(aTHX_ "panic: destruct destroyed thread %p (%s)",thread, why); } if (thread->count != 0) { |