From 272b464812029afc110beaa16e04de471ae4febe Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 10:18:55 +0000
Subject: [PATCH] prohibit thread join()ing itself (from Dan Sugalski)

p4raw-id: //depot/perl@3645
---
 ext/Thread/Thread.xs | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
2.7.4