OOPS ... Perl5 interface to PQsetdbLogin was actually

calling PQsetdb ...

OOPS ... Perl5 interface to PQsetdbLogin was actually
calling PQsetdb ...
3eb22085 · Tom Lane · 4c313931 · 3eb22085
Commit 3eb22085 authored Feb 19, 1999 by Tom Lane
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/interfaces/perl5/Pg.xs src/interfaces/perl5/Pg.xs +3 -2

No files found.
--- a/src/interfaces/perl5/Pg.xs
+++ b/src/interfaces/perl5/Pg.xs
 /*-------------------------------------------------------
 *
- * $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