win32_pclose() error exit doesn't unlock mutex

Message-ID: <02c701c64959$fac63ad0$6062a8c0@candy>

p4raw-id: //depot/perl@27528

diff --git a/win32/win32.c b/win32/win32.c
index e2b6e0b..240aa62 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2818,6 +2818,7 @@ win32_pclose(PerlIO *pf)
        childpid = 0;
 
     if (!childpid) {
+        UNLOCK_FDPID_MUTEX;
        errno = EBADF;
         return -1;
     }

diff --git a/wince/wince.c b/wince/wince.c
index af0d364..dbd960b 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -2886,6 +2886,7 @@ win32_pclose(PerlIO *pf)
        childpid = 0;
 
     if (!childpid) {
+        UNLOCK_FDPID_MUTEX;
        errno = EBADF;
         return -1;
     }