Remove spurious extra MUTEX_LOCK in pp_entersub(). Now builds and passes
Gurusamy Sarathy [Tue, 14 Oct 1997 00:23:15 +0000 (00:23 +0000)]
tests in win32 version of latest perlext/Thread.

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

pp_hot.c

index f0bf7aa..98cf6b0 100644 (file)
--- 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);
     }