mirror of
https://github.com/postgres/postgres.git
synced 2025-08-18 12:22:09 +03:00
OOPS ... Perl5 interface to PQsetdbLogin was actually
calling PQsetdb ...
This commit is contained in:
@@ -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
|
* Copyright (c) 1997, 1998 Edmund Mergl
|
||||||
*
|
*
|
||||||
@@ -752,7 +752,8 @@ setdbLogin(pghost, pgport, pgoptions, pgtty, dbname, login, pwd)
|
|||||||
char * login
|
char * login
|
||||||
char * pwd
|
char * pwd
|
||||||
CODE:
|
CODE:
|
||||||
RETVAL = PQsetdb(pghost, pgport, pgoptions, pgtty, dbname);
|
RETVAL = PQsetdbLogin(pghost, pgport, pgoptions, pgtty, dbname,
|
||||||
|
login, pwd);
|
||||||
OUTPUT:
|
OUTPUT:
|
||||||
RETVAL
|
RETVAL
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user