Do not unlock mutex twice.

       Do not unlock mutex after it has been destroyed and freed.
       Do not email p5p without uncrossing eyes.

p4raw-id: //depot/perl@16056

1 files changed, 3 insertions, 1 deletions

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 0e1992320c..eea6d652ad 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -198,7 +198,9 @@ ithread_mg_free(pTHX_ SV *sv, MAGIC *mg)
             MUTEX_UNLOCK(&thread->mutex);
             Perl_ithread_destruct(aTHX_ thread, "no reference");
        }
-       MUTEX_UNLOCK(&thread->mutex);
+       else {
+	    MUTEX_UNLOCK(&thread->mutex);
+       }    
     }
     else {
 	MUTEX_UNLOCK(&thread->mutex);