From: Artur Bergman <sky@nanisky.com>
Date: Sat, 20 Apr 2002 13:12:31 +0000 (+0000)
Subject: Really let the update of the link list do something.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f42ad631b1d28ed0bad6f129a32fb996684bd787;p=p5sagit%2Fp5-mst-13.2.git

Really let the update of the link list do something.

p4raw-id: //depot/perl@16016
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index acba4cc..753c837 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -106,8 +106,8 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why)
 	    threads = NULL;
         }
 	else {
-	    thread->next->prev = thread->prev->next;
-	    thread->prev->next = thread->next->prev;
+	    thread->next->prev = thread->prev;
+	    thread->prev->next = thread->next;
 	    if (threads == thread) {
 		threads = thread->next;
 	    }
@@ -350,6 +350,7 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 	Zero(thread,1,ithread);
 	thread->next = threads;
 	thread->prev = threads->prev;
+	threads->prev = thread;
 	thread->prev->next = thread;
 	/* Set count to 1 immediately in case thread exits before
 	 * we return to caller !