From: Daniel Westermann-Clark <danieltwc@cpan.org>
Date: Sat, 14 Jan 2006 16:46:59 +0000 (+0000)
Subject: Use public accessor in PK::Auto::Pg
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47d2f099ecf06cb01434642f33fe65511c5c0eca;p=dbsrgits%2FDBIx-Class-Historic.git

Use public accessor in PK::Auto::Pg
---

diff --git a/lib/DBIx/Class/PK/Auto/Pg.pm b/lib/DBIx/Class/PK/Auto/Pg.pm
index 611a6e1..2cd2c41 100644
--- a/lib/DBIx/Class/PK/Auto/Pg.pm
+++ b/lib/DBIx/Class/PK/Auto/Pg.pm
@@ -22,7 +22,7 @@ sub get_autoinc_seq {
     return $self->{_autoinc_seq} = $self->sequence;
   }
   
-  my @pri = keys %{ $self->_primaries };
+  my @pri = $self->primary_columns;
   my $dbh = $self->storage->dbh;
   while (my $col = shift @pri) {
     my $info = $dbh->column_info(undef,undef,$self->table,$col)->fetchrow_arrayref;