|
8 | 8 | * |
9 | 9 | * |
10 | 10 | * IDENTIFICATION |
11 | | - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.60 2001/12/03 14:49:46 tgl Exp $ |
| 11 | + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.61 2002/03/04 02:41:49 tgl Exp $ |
12 | 12 | * |
13 | 13 | *------------------------------------------------------------------------- |
14 | 14 | */ |
@@ -909,7 +909,7 @@ Pg_execute(ClientData cData, Tcl_Interp *interp, int argc, char *argv[]) |
909 | 909 |
|
910 | 910 | sprintf(oid_buf,"%u",PQoidValue(result)); |
911 | 911 | if (Tcl_SetVar(interp,oid_varname,oid_buf, |
912 | | -TCL_LEAVE_ERR_MSG)!=TCL_OK) |
| 912 | +TCL_LEAVE_ERR_MSG)==NULL) |
913 | 913 | { |
914 | 914 | PQclear(result); |
915 | 915 | returnTCL_ERROR; |
|