From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 10:18:55 +0000 (+0000)
Subject: prohibit thread join()ing itself (from Dan Sugalski)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=272b464812029afc110beaa16e04de471ae4febe;p=p5sagit%2Fp5-mst-13.2.git

prohibit thread join()ing itself (from Dan Sugalski)

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

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index f8b544d..5d61941 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -353,6 +353,8 @@ join(t)
 	int	i = NO_INIT
     PPCODE:
 #ifdef USE_THREADS
+	if (t == thr)
+	    croak("Attempt to join self");
 	DEBUG_S(PerlIO_printf(PerlIO_stderr(), "%p: joining %p (state %u)\n",
 			      thr, t, ThrSTATE(t)););
     	MUTEX_LOCK(&t->mutex);