bug report - Mailing list pgsql-interfaces

Hi ! Here's a minor(major?) bug I've noticed while using the CPAN module Pg
(pgsql_perl5-1.9.0).

I'm using perl 5.06.1, PostgreSQL 7.1.3 and pgsql_perl5-1.9.0.

When attempting to do the following in perl:

#!/usr/bin/perl -w
#
#   Perl sample program
#
use Pg;                                                 # load database
routines
$conn = Pg::connectdb("dbname=SIA");                   # connect to the
database                                                       # did the database
connection fail?
die $conn->errorMessage unless PGRES_CONNECTION_OK eq $conn->status;


There appears to be a tolower(str) expression ran against the content of the
connection string in the Pg::connectdb module. With PostgreSQL, I've set up
a database called SIA, and I can't connect to it via this method. If I
create a database called sia, the connection gets established. I take it the
problem would persist with passwords using mixes of UPPER/lowercase
characters and result in connection failures. :(


Hope this helps make the Pg module better ! :)



Here's the output of perl -v & perl -V :
-----------------------------------------------------
$ perl -v

This is perl, v5.6.1 built for i386-openbsd

Copyright 1987-2001, Larry Wall

Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit
.

Complete documentation for Perl, including FAQ lists, should be found o
n
this system using `man perl' or `perldoc perl'.  If you have access to
the
Internet, point your browser at http://www.perl.com/, the Perl Home Pag
e.

$ perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration
: Platform:   osname=openbsd, osvers=3.2, archname=i386-openbsd   uname='openbsd'
config_args='-Dopenbsd_distribution=defined-dsE'   hint=recommended, useposix=true, d_sigaction=define
usethreads=undefuse5005threads=undef useithreads=undef usemultipli
 
city=undef   useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef   use64bitint=undef use64bitall=undef
uselongdouble=undefCompiler:   cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include',   optimize='-O2',
cppflags='-fno-strict-aliasing-I/usr/local/include'   ccversion='', gccversion='2.95.3 20010125 (prerelease)', gccosa
 
rs='openbsd3.2'   intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234   d_longlong=define, longlongsize=8,
d_longdbl=define,longdblsiz   ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_
 
lseeksize=8   alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries:   ld='cc', ldflags =''
libpth=/usr/lib  libs=-lm -lc -lutil   perllibs=-lm -lc -lutil   libc=/usr/lib/libc.so.28.5, so=so, useshrplib=true,
libperl=lib
.so.6.1 Dynamic Linking:   dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=define, ccdlflags='-Wl,
sr/libdata/perl5/i386-openbsd/5.6.1/CORE'   cccdlflags='-DPIC -fPIC ', lddlflags='-shared -fPIC '


Characteristics of this binary (from libperl): Compile-time options: USE_LARGE_FILES Built under openbsd Compiled at
Dec11 2002 07:48:13 @INC:   /usr/libdata/perl5/i386-openbsd/5.6.1   /usr/local/libdata/perl5/i386-openbsd/5.6.1
/usr/libdata/perl5  /usr/local/libdata/perl5   /usr/local/libdata/perl5/site_perl/i386-openbsd
/usr/libdata/perl5/site_perl/i386-openbsd  /usr/local/libdata/perl5/site_perl   /usr/libdata/perl5/site_perl
/usr/local/lib/perl5/site_perl  .