OOPS ... Perl5 interface to PQsetdbLogin was actually

tglsfdc · tglsfdc · commit 3eb22085b578 · 1999-02-19T23:27:17.000Z
calling PQsetdb ...
diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs
@@ -1,6 +1,6 @@
 /*-------------------------------------------------------
  *
- * $Id: Pg.xs,v 1.11 1999/02/11 23:25:16 tgl Exp $
+ * $Id: Pg.xs,v 1.12 1999/02/19 23:27:17 tgl Exp $
  *
  * Copyright (c) 1997, 1998  Edmund Mergl
  *
@@ -752,7 +752,8 @@ setdbLogin(pghost, pgport, pgoptions, pgtty, dbname, login, pwd)
 	char *	login
 	char *	pwd
 	CODE:
-		RETVAL = PQsetdb(pghost, pgport, pgoptions, pgtty, dbname);
+		RETVAL = PQsetdbLogin(pghost, pgport, pgoptions, pgtty, dbname,
+							  login, pwd);
 	OUTPUT:
 		RETVAL
 

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`/*-------------------------------------------------------`
`2`	`2`	`*`
`3`		`- * $Id: Pg.xs,v 1.11 1999/02/11 23:25:16 tgl Exp $`
	`3`	`+ * $Id: Pg.xs,v 1.12 1999/02/19 23:27:17 tgl Exp $`
`4`	`4`	`*`
`5`	`5`	`* Copyright (c) 1997, 1998 Edmund Mergl`
`6`	`6`	`*`
`@@ -752,7 +752,8 @@ setdbLogin(pghost, pgport, pgoptions, pgtty, dbname, login, pwd)`
`752`	`752`	`char * login`
`753`	`753`	`char * pwd`
`754`	`754`	`CODE:`
`755`		`- RETVAL = PQsetdb(pghost, pgport, pgoptions, pgtty, dbname);`
	`755`	`+ RETVAL = PQsetdbLogin(pghost, pgport, pgoptions, pgtty, dbname,`
	`756`	`+ login, pwd);`
`756`	`757`	`OUTPUT:`
`757`	`758`	`RETVAL`
`758`	`759`