From: Drago Goricanec <drago@raptor.otsd.ts.fujitsu.co.jp>
Date: Mon, 7 Sep 1998 17:36:09 +0000 (+0900)
Subject: Thread::cond_wait bug in 5.005.51 causes deadlock
X-Git-Tag: accepted/trunk/20130322.191538~37109
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d3ef56684fd202c15842c6bd3b39ec9be6eae9b7;p=platform%2Fupstream%2Fperl.git

Thread::cond_wait bug in 5.005.51 causes deadlock

	Message-Id: <199809070836.RAA14631@raptor.otsd.ts.fujitsu.co.jp>

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

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index 48f8aa0..a4bff69 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -483,6 +483,7 @@ CODE:
 	    croak("cond_wait for lock that we don't own\n");
 	}
 	MgOWNER(mg) = 0;
+	COND_SIGNAL(MgOWNERCONDP(mg));
 	COND_WAIT(MgCONDP(mg), MgMUTEXP(mg));
 	while (MgOWNER(mg))
 	    COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));