diff options
author | Tom Lane | 2002-03-04 02:41:49 +0000 |
---|---|---|
committer | Tom Lane | 2002-03-04 02:41:49 +0000 |
commit | a616cbc5e363eca58b1f7d3be45725d55d685702 (patch) | |
tree | e1641961e189be0b22f2b33532ca0a25fcae44f7 | |
parent | 36f693ec69bd412817021ae530c729b414822ebc (diff) |
Fix bogus error check in pg_execute, per report from lbayuk@mindspring.com.
-rw-r--r-- | src/interfaces/libpgtcl/pgtclCmds.c | 4 |
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; |