Fix for array handling, from Gerhard Hintermayer

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index f747869ebd3171ab8668d7418f27d8d04d5007bc..f52c20d1f18bc2cea560b80034c5c6932e2f3114 100644 (file)
--- 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.16 1997/09/25 15:48:51 momjian Exp $
+ *       $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[])
 #ifdef TCL_ARRAYS
                for (i = 0; i < PQnfields(result); i++)
                {
-                       Tcl_AppendElement(interp, tcl_value(PQgetvalue(result, tupno, i)));
+                       Tcl_AppendElement(interp, PQgetvalue(result,tupno,i));
                }
 #else
 /*             Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */