From 4f9ab2e796b124537cd51c652cb039eccfddda34 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 14 Nov 2012 22:05:21 +0000
Subject: 3587242	Missing Tcl_MutexUnlock() call made [testasync create]
 block.

---
 generic/tclTest.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/generic/tclTest.c b/generic/tclTest.c
index 998416c..e3fe579 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -811,6 +811,7 @@ TestasyncCmd(dummy, interp, argc, argv)
 	asyncPtr->nextPtr = firstHandler;
 	firstHandler = asyncPtr;
 	TclFormatInt(buf, asyncPtr->id);
+	Tcl_MutexUnlock(&asyncTestMutex);
 	Tcl_SetResult(interp, buf, TCL_VOLATILE);
     } else if (strcmp(argv[1], "delete") == 0) {
 	if (argc == 2) {
-- 
cgit v0.12