From a4ac44fccc008eb38b43511905b3797f9b0274df Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 24 Nov 2022 17:43:12 +0000
Subject: Fix gcc warning, seen on Ubuntu with select notifier

---
 unix/tclSelectNotfy.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/unix/tclSelectNotfy.c b/unix/tclSelectNotfy.c
index 732e4c9..fc77e77 100644
--- a/unix/tclSelectNotfy.c
+++ b/unix/tclSelectNotfy.c
@@ -938,7 +938,10 @@ TclAsyncNotifier(
 	    *flagPtr = value;
 	    if (!asyncPending) {
 		asyncPending = 1;
-		write(triggerPipe, "S", 1);
+		if (write(triggerPipe, "S", 1) != 1) {
+		    asyncPending = 0;
+		    return 0;
+		};
 	    }
 	    return 1;
 	}
-- 
cgit v0.12