Your message dated Mon, 23 Feb 2026 09:58:31 +0000
with message-id <[email protected]>
and subject line Bug#1128402: Removed package(s) from unstable
has caused the Debian Bug report #447048,
regarding libpg-perl: fails to connect to databases with case sensitive 
database names
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)


-- 
447048: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=447048
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
Package: libpg-perl
Version: 1:2.1.1-3
Severity: normal
Tags: patch


use Pg;
my $conn = Pg::connectdb('dbname="fooTM"');

does not work:
FATAL:  database ""footm"" does not exist

It is a problem of libpg-perl, because 

psql fooTM

does work.

According to 

http://gborg.postgresql.org/project/pgperl/bugs/bugupdate.php?810

this is a known bug (but seems to be open for three years). That bugreport
proposes to one line fix. On the other hand, the code in Pg.xs does not check 
the 
parameters carefully, so I'd suggest to apply the following patch:

diff -ur libpg-perl-2.1.1/Pg.xs libpg-perl-2.1.1new/Pg.xs
--- libpg-perl-2.1.1/Pg.xs      2004-04-20 05:25:06.000000000 +0200
+++ libpg-perl-2.1.1new/Pg.xs   2007-10-17 20:01:42.000000000 +0200
@@ -96,8 +96,11 @@
                char *ptr = strstr(conninfo, "dbname");
                if (ptr) {
                    ptr += 6;
-                   while (*ptr && *ptr != '=') {
-                       ptr++;
+                   while (*ptr && (*ptr == ' ' || *ptr == '\t')) {
+                       ptr++;
+                   }
+                   if (*ptr && *ptr == '=' ) {
+                       ptr++;
                    }
                    while (*ptr && (*ptr == ' ' || *ptr == '\t')) {
                        ptr++;

(I tested it and it does work for me).




-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: amd64 (x86_64)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-5-xen-amd64
Locale: LANG=de_AT.UTF-8, LC_CTYPE=de_AT.UTF-8 (charmap=UTF-8)

Versions of packages libpg-perl depends on:
ii  libc6                  2.3.6.ds1-13etch2 GNU C Library: Shared libraries
ii  libpq4                 8.1.9-0etch1      PostgreSQL C client library
ii  perl                   5.8.8-7           Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8 5.8.8-7           The Pathologically Eclectic Rubbis

libpg-perl recommends no packages.

-- no debconf information



--- End Message ---
--- Begin Message ---
Version: 1:2.1.1-11+rm

Dear submitter,

as the package libpg-perl has just been removed from the Debian archive
unstable we hereby close the associated bug reports.  We are sorry
that we couldn't deal with your issue properly.

For details on the removal, please see https://bugs.debian.org/1128402

The version of this package that was in Debian prior to this removal
can still be found using https://snapshot.debian.org/.

Please note that the changes have been done on the master archive and
will not propagate to any mirrors until the next dinstall run at the
earliest.

This message was generated automatically; if you believe that there is
a problem with it please contact the archive administrators by mailing
[email protected].

Debian distribution maintenance software
pp.
Thorsten Alteholz (the ftpmaster behind the curtain)

--- End Message ---

Reply via email to