diff options
Diffstat (limited to 'ext/threads')
| -rwxr-xr-x | ext/threads/threads.xs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index 88aaf0eaf7..41732994a5 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -91,6 +91,7 @@ perl_key self_key; void Perl_ithread_destruct (pTHX_ ithread* thread, const char *why) { + PerlInterpreter* destroyperl = NULL; MUTEX_LOCK(&thread->mutex); if (!thread->next) { Perl_croak(aTHX_ "panic: destruct destroyed thread %p (%s)",thread, why); @@ -127,14 +128,17 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why) PERL_SET_CONTEXT(thread->interp); SvREFCNT_dec(thread->params); thread->params = Nullsv; - perl_destruct(thread->interp); - perl_free(thread->interp); + destroyperl = thread->interp; thread->interp = NULL; } PERL_SET_CONTEXT(aTHX); MUTEX_UNLOCK(&thread->mutex); MUTEX_DESTROY(&thread->mutex); PerlMemShared_free(thread); + if(destroyperl) { + perl_destruct(destroyperl); + perl_free(destroyperl); + } } int |