From: Jesse Vincent <jesse+cpan@fsck.com>
Date: Sat, 28 Jul 2007 22:33:17 +0000 (-0500)
Subject: * Perldoc updates - mst check me?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db7828bfb9d099aee8dbabc93e4290140c2137d0;p=dbsrgits%2FDBIx-Class-Historic.git

* Perldoc updates - mst check me?
* Added a note about a regexp that's more robust in JDBI and may want stealing
---

diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm
index ea5f6f0..074e292 100644
--- a/lib/DBIx/Class/Storage/DBI/Pg.pm
+++ b/lib/DBIx/Class/Storage/DBI/Pg.pm
@@ -34,6 +34,8 @@ sub _dbh_get_autoinc_seq {
     my $info = $dbh->column_info(undef,$schema,$table,$col)->fetchrow_hashref;
     if(defined $info->{COLUMN_DEF} and
        $info->{COLUMN_DEF} =~ /^nextval\(+'([^']+)'::(?:text|regclass)\)/) {
+        # XXX TODO if this doesn't work, check the slightly different regex in Jifty::DBI::Handle::Pg
+        # to catch possible different quoting
       my $seq = $1;
       # may need to strip quotes -- see if this works
       return $seq =~ /\./ ? $seq : $info->{TABLE_SCHEM} . "." . $seq;
@@ -88,7 +90,15 @@ DBIx::Class::Storage::DBI::Pg - Automatic primary key class for PostgreSQL
 
 =head1 DESCRIPTION
 
-This class implements autoincrements for PostgreSQL.
+This class implements a custom database profile for PostgreSQL, including
+
+=over
+
+=item autoincrement support
+
+=item bind attribute handling (for blobs)
+
+=item a pointer to the correct date parser
 
 =head1 AUTHORS