diff options
| author | Bruce Momjian <bruce@momjian.us> | 2002-08-18 01:39:43 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2002-08-18 01:39:43 +0000 |
| commit | 3dd8369f77aff053fb7ec4b24d458ecf1d63e91f (patch) | |
| tree | 7fb7f71459ccadf5589102a52b699bc993384a14 /src/interfaces/libpgtcl/pgtclCmds.c | |
| parent | 5bf6af6cf4595a384c3fd0cc0040503ae914659a (diff) | |
Back out tcl patch, per Tom Lane:
Everytime if I do PQconsumeInput (when the backend channel gets
readable) I check for the return value. (0 == error) and generate a
notification manually, e.g. fixed string connection_closed) and pass it to the
Diffstat (limited to 'src/interfaces/libpgtcl/pgtclCmds.c')
| -rw-r--r-- | src/interfaces/libpgtcl/pgtclCmds.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c index 4b047b1b6e5..0cb46686dc1 100644 --- a/src/interfaces/libpgtcl/pgtclCmds.c +++ b/src/interfaces/libpgtcl/pgtclCmds.c @@ -8,7 +8,7 @@ * * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.63 2002/08/17 12:19:31 momjian Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.64 2002/08/18 01:39:43 momjian Exp $ * *------------------------------------------------------------------------- */ @@ -419,11 +419,8 @@ Pg_disconnect(ClientData cData, Tcl_Interp *interp, int argc, char *argv[]) #if TCL_MAJOR_VERSION >= 8 conn = PgGetConnectionId(interp, argv[1], &connid); - if (connid->notifier_channel != NULL) { - /* stop listening for NOTIFY events on that channel */ - PgStopNotifyEventSource(connid,1); + if (connid->notifier_channel != NULL) Tcl_UnregisterChannel(interp, connid->notifier_channel); - } #endif return Tcl_UnregisterChannel(interp, conn_chan); |