OOPS ... Perl5 interface to PQsetdbLogin was actually

calling PQsetdb ...

diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs
index 9d5d264782bae6f86cccfea71886921739083921..5419130a528f47be5496e9c138cf18122c36c33e 100644 (file)
--- 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