Fix a case of segfault in ithread destruction

p4raw-id: //depot/perl@29174

1 files changed, 2 insertions, 2 deletions

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 81f9f65e37..977a47a4b2 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -174,8 +174,8 @@ S_ithread_destruct(pTHX_ ithread *thread)
 
     /* Remove from circular list of threads */
     MUTEX_LOCK(&MY_POOL.create_destruct_mutex);
-    thread->next->prev = thread->prev;
-    thread->prev->next = thread->next;
+    if (thread->next) thread->next->prev = thread->prev;
+    if (thread->prev) thread->prev->next = thread->next;
     thread->next = NULL;
     thread->prev = NULL;
     MUTEX_UNLOCK(&MY_POOL.create_destruct_mutex);