From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Oct 1997 00:23:15 +0000 (+0000)
Subject: Remove spurious extra MUTEX_LOCK in pp_entersub().  Now builds and passes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a6d3f2245016ae4b4e3603385225b5588419ec8;p=p5sagit%2Fp5-mst-13.2.git

Remove spurious extra MUTEX_LOCK in pp_entersub().  Now builds and passes
tests in win32 version of latest perlext/Thread.

p4raw-id: //depot/win32/perl@124
---

diff --git a/pp_hot.c b/pp_hot.c
index f0bf7aa..98cf6b0 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1930,7 +1930,6 @@ PP(pp_entersub)
 	assert(CvOWNER(cv) == 0);
 	CvOWNER(cv) = thr;	/* Assert ownership */
 	SvREFCNT_inc(cv);
-	MUTEX_UNLOCK(CvMUTEXP(cv));
 	if (CvDEPTH(cv) == 0)
 	    SAVEDESTRUCTOR(unset_cvowner, (void*) cv);
     }