workaround for PAUSE parsing of DBIx::DBSchema::DBD::Pg version: move DBD::Pg verison...

diff --git a/Changes b/Changes
index aaed8a1..e5ee33b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension DBIx::DBSchema.
 
+0.29 unreleased
+       - workaround for PAUSE parsing of DBIx::DBSchema::DBD::Pg version: move
+         DBD::Pg verison checking after $VERSION declaration, thanks Andreas!
+
 0.28 Wed Nov 30 09:46:47 PST 2005
         - Initial SQLite support from Jesse Vincent
        - fix typo in DBIx::DBSchema::DBD POD doc

diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm
index 3218a26..035bc11 100644 (file)
--- a/DBSchema/DBD/Pg.pm
+++ b/DBSchema/DBD/Pg.pm
@@ -3,14 +3,15 @@ package DBIx::DBSchema::DBD::Pg;
 use strict;
 use vars qw($VERSION @ISA %typemap);
 use DBD::Pg 1.32;
-die "DBD::Pg version 1.32 or 1.41 (or later) required--".
-    "this is only version $DBD::Pg::VERSION\n"
-  if $DBD::Pg::VERSION != 1.32 && $DBD::Pg::VERSION < 1.41;
 use DBIx::DBSchema::DBD;
 
 $VERSION = '0.10';
 @ISA = qw(DBIx::DBSchema::DBD);
 
+die "DBD::Pg version 1.32 or 1.41 (or later) required--".
+    "this is only version $DBD::Pg::VERSION\n"
+  if $DBD::Pg::VERSION != 1.32 && $DBD::Pg::VERSION < 1.41;
+
 %typemap = (
   'BLOB' => 'BYTEA',
   'LONG VARBINARY' => 'BYTEA',