summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Lane2002-03-04 02:41:49 +0000
committerTom Lane2002-03-04 02:41:49 +0000
commita616cbc5e363eca58b1f7d3be45725d55d685702 (patch)
treee1641961e189be0b22f2b33532ca0a25fcae44f7
parent36f693ec69bd412817021ae530c729b414822ebc (diff)
Fix bogus error check in pg_execute, per report from lbayuk@mindspring.com.
-rw-r--r--src/interfaces/libpgtcl/pgtclCmds.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index af94a510bf3..bd7143c2997 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.60 2001/12/03 14:49:46 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.61 2002/03/04 02:41:49 tgl Exp $
*
*-------------------------------------------------------------------------
*/
@@ -909,7 +909,7 @@ Pg_execute(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
sprintf(oid_buf, "%u", PQoidValue(result));
if (Tcl_SetVar(interp, oid_varname, oid_buf,
- TCL_LEAVE_ERR_MSG) != TCL_OK)
+ TCL_LEAVE_ERR_MSG) == NULL)
{
PQclear(result);
return TCL_ERROR;