From: "Stephane Paquin" <selt@philosophiebleue.com>
To: <pgsql-interfaces@postgresql.org>
Subject: bug report
Date: Sun, 29 Dec 2002 18:07:17 -0500
Message-ID: <JCEELJEIAONGDEKLBPAMIEOOCAAA.selt@philosophiebleue.com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Importance: Normal

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=undef use5005threads=undef useithreads=undef usemultipli
city=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    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 Dec 11 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
    .