diff options
| author | Bruce Momjian <bruce@momjian.us> | 1997-10-30 17:29:57 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 1997-10-30 17:29:57 +0000 |
| commit | 9a8fcee342ea771732112c2574e9fd29c5f7c849 (patch) | |
| tree | acae411407a1a1652b3c8edf7b39d5ca357a3165 /src/interfaces/libpgtcl/pgtclCmds.c | |
| parent | 9f133d23ff2179115db4db66fb9f4fa14d6f406d (diff) | |
| download | postgresql-9a8fcee342ea771732112c2574e9fd29c5f7c849.tar.gz | |
Patch for tcl library crash, from Jan Wieck.
Diffstat (limited to 'src/interfaces/libpgtcl/pgtclCmds.c')
| -rw-r--r-- | src/interfaces/libpgtcl/pgtclCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c index f52c20d1f1..99c2c1f460 100644 --- a/src/interfaces/libpgtcl/pgtclCmds.c +++ b/src/interfaces/libpgtcl/pgtclCmds.c @@ -7,7 +7,7 @@ * * * 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++) { - strcpy(buffer, PQgetvalue(result, tupno, column)); - Tcl_SetVar2(interp, argv[3], info[column].cname, buffer, 0); + Tcl_SetVar2(interp, argv[3], info[column].cname, + PQgetvalue(result, tupno, column), 0); } Tcl_SetVar2(interp, argv[3], ".command", "update", 0); |