From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Sun, 17 Jan 1999 21:14:33 +0000 (+0000)
Subject: Keep Tcl from getting confused if backend closes connection
X-Git-Tag: REL6_5~806
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=be94d8fb1e38503c1f44b38810fdae8493bdfb17;p=postgresql

Keep Tcl from getting confused if backend closes connection
when a notify is installed.
---

diff --git a/src/interfaces/libpgtcl/pgtclId.c b/src/interfaces/libpgtcl/pgtclId.c
index 602147db1c..8f333eae9a 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);
 }
 
 /*