(cherry-pick): Fix [d3071887dbc7aeac]: Fix SEGV in Tcl_FinalizeNotifier(). Thanks to hirofumi for both the bug-report and the fix

1 files changed, 2 insertions, 0 deletions

diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c
index a57a89a..e7ea7a1 100644
--- a/unix/tclUnixNotfy.c
+++ b/unix/tclUnixNotfy.c
@@ -432,9 +432,11 @@ Tcl_FinalizeNotifier(
 			"unable to write q to triggerPipe");
 	    }
 	    close(triggerPipe);
+	    pthread_mutex_lock(&notifierMutex);
 	    while(triggerPipe != -1) {
 		pthread_cond_wait(&notifierCV, &notifierMutex);
 	    }
+	    pthread_mutex_unlock(&notifierMutex);
 	    if (notifierThreadRunning) {
 		int result = pthread_join((pthread_t) notifierThread, NULL);