Subject: 3587242 Missing Tcl_MutexUnlock() call made [testasync create] block.

From: "[email-masked]" <dgp>
Date: Wed, 14 Nov 2012 22:05:21 +0000

---
 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