From bd83ea95bbc10edc42a90bcc6f2245fb338c8531 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 23 Oct 2003 22:19:20 +0000
Subject: [PATCH] 0.22 !

---
 Changes            |  3 ++-
 DBSchema/DBD/Pg.pm | 10 +++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index c61fefc..beef25b 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,8 @@
 Revision history for Perl extension DBIx::DBSchema.
 
-0.22 unreleased
+0.22 Thu Oct 23 15:18:21 PDT 2003
 	- Pg reverse-engineering fix: varchar with no limit
+	- Pg needs (unreleased) DBD::Pg 1.30 (or deb 1.22-2... interesting)
 
 0.21 Thu Sep 19 05:04:18 PDT 2002
 	- Pg reverse-engineering fix: now sets default
diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm
index 33d6665..4e5495b 100644
--- a/DBSchema/DBD/Pg.pm
+++ b/DBSchema/DBD/Pg.pm
@@ -4,9 +4,17 @@ use strict;
 use vars qw($VERSION @ISA %typemap);
 use DBIx::DBSchema::DBD;
 
-$VERSION = '0.06';
+$VERSION = '0.07';
 @ISA = qw(DBIx::DBSchema::DBD);
 
+use DBD::Pg;
+my $pg_required_version =
+  ( -e '/etc/debian_version' && $INC{'DBD/Pg.pm'} !~ m(^/usr/local/) )
+    ? '1.22'
+    : '1.30';
+eval "use DBD::Pg $pg_required_version;";
+die $@ if length($@);
+
 %typemap = (
   'BLOB' => 'BYTEA',
   'LONG VARBINARY' => 'BYTEA',
-- 
2.11.0