From be94d8fb1e38503c1f44b38810fdae8493bdfb17 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Sun, 17 Jan 1999 21:14:33 +0000
Subject: [PATCH] Keep Tcl from getting confused if backend closes connection
 when a notify is installed.

---
 src/interfaces/libpgtcl/pgtclId.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/interfaces/libpgtcl/pgtclId.c b/src/interfaces/libpgtcl/pgtclId.c
index 602147db1c2..8f333eae9ab 100644
--- a/src/interfaces/libpgtcl/pgtclId.c
+++ b/src/interfaces/libpgtcl/pgtclId.c
@@ -12,7 +12,7 @@
  * Copyright (c) 1994, Regents of the University of California
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.16 1998/09/21 01:02:03 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.17 1999/01/17 21:14:33 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -582,6 +582,15 @@ PgNotifyTransferEvents(Pg_ConnectionId * connid)
 		Tcl_QueueEvent((Tcl_Event *) event, TCL_QUEUE_TAIL);
 		free(notify);
 	}
+
+	/*
+	 * This is also a good place to check for unexpected closure of the
+	 * connection (ie, backend crash), in which case we must shut down the
+	 * notify event source to keep Tcl from trying to select() on the now-
+	 * closed socket descriptor.
+	 */
+	if (PQsocket(connid->conn) < 0)
+		PgStopNotifyEventSource(connid);
 }
 
 /*
-- 
GitLab