From 03605571fb70021842ec7bf006584d054d894fcc Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 1 Dec 2005 16:07:50 +0000 Subject: [PATCH] workaround for PAUSE parsing of DBIx::DBSchema::DBD::Pg version: move DBD::Pg verison checking after $VERSION declaration, thanks Andreas! --- Changes | 4 ++++ DBSchema/DBD/Pg.pm | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index aaed8a1..e5ee33b 100644 --- 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 --- 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', -- 2.11.0