mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch for tcl library crash, from Jan Wieck.

Browse Source
This commit is contained in:
Bruce Momjian 1997-10-30 17:29:57 +00:00
parent 9f133d23ff
commit 9a8fcee342
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/interfaces/libpgtcl/pgtclCmds.c
View File

@ -7,7 +7,7 @@
* *
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.18 1997/10/30 17:29:57 momjian Exp $
* *
*------------------------------------------------------------------------- *-------------------------------------------------------------------------
*/ */
@ -1331,8 +1331,8 @@ Pg_select(ClientData cData, Tcl_Interp * interp, int argc, char **argv)
for (column = 0; column < ncols; column++) for (column = 0; column < ncols; column++)
{ {
strcpy(buffer, PQgetvalue(result, tupno, column)); Tcl_SetVar2(interp, argv[3], info[column].cname,
Tcl_SetVar2(interp, argv[3], info[column].cname, buffer, 0); PQgetvalue(result, tupno, column), 0);
} }
Tcl_SetVar2(interp, argv[3], ".command", "update", 0); Tcl_SetVar2(interp, argv[3], ".command", "update", 0);