From: Robert Buels Date: Fri, 4 Sep 2009 18:35:18 +0000 (+0000) Subject: tweaked comment X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96e1048b78e3f20b219506be9d36968125e47376;p=dbsrgits%2FDBIx-Class-Historic.git tweaked comment --- diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm index 8e024f0..83659be 100644 --- a/lib/DBIx/Class/Storage/DBI/Pg.pm +++ b/lib/DBIx/Class/Storage/DBI/Pg.pm @@ -54,10 +54,10 @@ sub _dbh_get_autoinc_seq { ( $schema, $table ) = ( $1, $2 ); } + # use DBD::Pg to fetch the column info if it is recent enough to + # work. otherwise, use custom SQL my $seq_expr = $DBD::Pg::VERSION > 2.015001 - # use DBD::Pg to fetch the column info if it is recent enough to work ? eval{ $dbh->column_info(undef,$schema,$table,$col)->fetchrow_hashref->{COLUMN_DEF} } - # otherwise, use a custom SQL method : $self->_dbh_get_column_default( $dbh, $schema, $table, $col ); # if no default value is set on the column, or if we can't parse the