From 67b7d85c2dd267ed4ea308956907a48a2d186cca Mon Sep 17 00:00:00 2001
From: andreas_kupries <akupries@shaw.ca>
Date: Thu, 15 Jul 2004 22:04:26 +0000
Subject: 	* unix/tclUnixThrd.c (TclpFinalizeMutex): Accepted Joe 	 
 Mistachkin's patch for [Tcl SF Bug 99453], closing leakage of 	  mutexes.
 They were not destroyed properly upon finalization.

---
 ChangeLog          | 6 ++++++
 unix/tclUnixThrd.c | 1 +
 2 files changed, 7 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 85a6979..45a8481 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-15  Andreas Kupries  <andreask@activestate.com>
+
+	* unix/tclUnixThrd.c (TclpFinalizeMutex): Accepted Joe
+	  Mistachkin's patch for [Tcl SF Bug 99453], closing leakage of
+	  mutexes. They were not destroyed properly upon finalization.
+
 2004-07-15  Zoran Vasiljevic <vasiljevic@users.sf.net>
 
 	* generic/tclEvent.c (NewThreadProc): Backout of changes
diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c
index 78ca385..d300d34 100644
--- a/unix/tclUnixThrd.c
+++ b/unix/tclUnixThrd.c
@@ -494,6 +494,7 @@ TclpFinalizeMutex(mutexPtr)
 {
     pthread_mutex_t *pmutexPtr = *(pthread_mutex_t **)mutexPtr;
     if (pmutexPtr != NULL) {
+        pthread_mutex_destroy(pmutexPtr);
 	ckfree((char *)pmutexPtr);
 	*mutexPtr = NULL;
     }
-- 
cgit v0.12