Package: libpg-perl
Version: 1:2.1.1-2
Severity: minor
Tags: patch

The synopsis from "perldoc Pg" doesn't work properly, because "print"
should not be assigned to.  Removing the assignment operator (=) makes
it functional but ugly, as it prints the information without newlines
between the rows.

The following patch should help:

--- Pg.pm.orig  2006-10-26 14:39:37.000000000 -0400
+++ Pg.pm       2006-10-26 14:40:02.000000000 -0400
@@ -100,7 +100,7 @@
     $conn = Pg::connectdb("dbname=template1");
     $res  = $conn->exec("SELECT * from pg_user");
     while (@row = $res->fetchrow) {
-        print = join(" ", @row);
+        print join(" ", @row)."\n";
     }
 
Thanks for maintaining this package,

        --dkg 

-- System Information:
Debian Release: testing/unstable
  APT prefers testing
  APT policy: (500, 'testing'), (200, 'unstable'), (101, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.17-2-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)

Versions of packages libpg-perl depends on:
ii  libc6                        2.3.6.ds1-4 GNU C Library: Shared libraries
ii  libpq4                       8.1.4-7     PostgreSQL C client library
ii  perl                         5.8.8-6.1   Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8.7]    5.8.8-6.1   The Pathologically Eclectic Rubbis

libpg-perl recommends no packages.

-- no debconf information


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to