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 f0bf7aa07a363b58618cf947c2d8c4c9d9a1546f..98cf6b0829e29212597272853dbe1d82b7f80b4b 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);
     }