From: Justin Guenther <jguenther@cpan.org>
Date: Fri, 26 May 2006 18:59:01 +0000 (+0000)
Subject: Add a warning for DBD::Pg < 1.49
X-Git-Tag: v0.07002~75^2~159
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=176149441955d3c4319cfa2f8e0c2b07551d2761;p=dbsrgits%2FDBIx-Class.git

Add a warning for DBD::Pg < 1.49
---

diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm
index 5940de2..aecaa7e 100644
--- a/lib/DBIx/Class/Storage/DBI/Pg.pm
+++ b/lib/DBIx/Class/Storage/DBI/Pg.pm
@@ -7,6 +7,10 @@ use base qw/DBIx::Class::Storage::DBI/;
 
 # __PACKAGE__->load_components(qw/PK::Auto/);
 
+# Warn about problematic versions of DBD::Pg
+warn "DBD::Pg 1.49 is strongly recommended"
+  if ($DBD::Pg::VERSION < 1.49);
+
 sub last_insert_id {
   my ($self,$source,$col) = @_;
   my $seq = ($source->column_info($col)->{sequence} ||= $self->get_autoinc_seq($source,$col));