From 3eb22085b578bc112a824efae2402545ce93d991 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Fri, 19 Feb 1999 23:27:17 +0000
Subject: [PATCH] OOPS ... Perl5 interface to PQsetdbLogin was actually calling
 PQsetdb ...

---
 src/interfaces/perl5/Pg.xs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs
index 9d5d264782..5419130a52 100644
--- 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
 
-- 
2.11.0