Improve formatting of error message.

tglsfdc · tglsfdc · commit e313eb809866 · 2002-10-17T14:51:50.000Z
diff --git 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.68 2002/09/04 20:31:46 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.69 2002/10/17 14:51:50 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -555,7 +555,8 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
 	result = PgGetResultId(interp, argv[1]);
 	if (result == (PGresult *) NULL)
 	{
-		Tcl_AppendResult(interp, argv[1], " is not a valid query result", 0);
+		Tcl_AppendResult(interp, "\n",
+						 argv[1], " is not a valid query result", 0);
 		return TCL_ERROR;
 	}
 

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@`
`8`	`8`	`*`
`9`	`9`	`*`
`10`	`10`	`* IDENTIFICATION`
`11`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.68 2002/09/04 20:31:46 momjian Exp $`
	`11`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.69 2002/10/17 14:51:50 tgl Exp $`
`12`	`12`	`*`
`13`	`13`	`*-------------------------------------------------------------------------`
`14`	`14`	`*/`
`@@ -555,7 +555,8 @@ Pg_result(ClientData cData, Tcl_Interp interp, int argc, char argv[])`
`555`	`555`	`result = PgGetResultId(interp, argv[1]);`
`556`	`556`	`if (result == (PGresult *) NULL)`
`557`	`557`	`{`
`558`		`- Tcl_AppendResult(interp, argv[1], " is not a valid query result", 0);`
	`558`	`+ Tcl_AppendResult(interp, "\n",`
	`559`	`+ argv[1], " is not a valid query result", 0);`
`559`	`560`	`return TCL_ERROR;`
`560`	`561`	`}`
`561`	`562`