From: Tavin Cole <tavin@agilecomputing.com>
Subject: DBD::Pg 1.22 fatal bug / patch
To: david@wheeler.net, jason@openinformatics.com, pgman@candle.pha.pa.us
Date: Thu, 30 Oct 2003 09:02:24 +0000


--=-1hHJAKSJLhui6DIbDh8R
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

i'm running a script that uses DBD::Pg 1.22 and fails with:

Undefined subroutine &DBD::Pg::db::pg_server_version called at
/usr/lib/perl5/site_perl/5.8.0/i686-linux/DBD/Pg.pm line 911.

this is fixed with the attached patch.  thanks for the software!

cheers

-- 
Tavin Cole <tavin@agilecomputing.com>
http://www.agilecomputing.com/


--=-1hHJAKSJLhui6DIbDh8R
Content-Disposition: inline; filename=DBD-Pg-patch.txt
Content-Type: text/plain; name=DBD-Pg-patch.txt; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

--- Pg.pm.bak   2003-03-26 23:28:37.000000000 -0500
+++ Pg.pm       2003-04-20 14:28:39.000000000 -0400
@@ -908,7 +908,8 @@
             # by pg_constraint. To maintain compatibility, check
             # version number and execute appropriate query.
  
-            my $version = pg_server_version( $dbh );
+            #my $version = pg_server_version( $dbh );
+            my $version = DBD::Pg::pg_server_version( $dbh );
              
             my $con_query = $version < 7.3
              ? "SELECT rcsrc FROM pg_relcheck WHERE rcname = '${table}_$col_name'"

--=-1hHJAKSJLhui6DIbDh8R--