From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 19 Feb 2010 11:25:27 +0000 (+0000)
Subject: s/primary_columns/_pri_cols/ for Firebird
X-Git-Tag: v0.08121~73^2~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f55ac9486477582fdbd4b88b8415d8f456d852b;p=dbsrgits%2FDBIx-Class.git

s/primary_columns/_pri_cols/ for Firebird
---

diff --git a/lib/DBIx/Class/Storage/DBI/InterBase.pm b/lib/DBIx/Class/Storage/DBI/InterBase.pm
index 22cb19e..085da6e 100644
--- a/lib/DBIx/Class/Storage/DBI/InterBase.pm
+++ b/lib/DBIx/Class/Storage/DBI/InterBase.pm
@@ -34,7 +34,7 @@ sub _prep_for_execute {
   my ($op, $extra_bind, $ident, $args) = @_;
 
   if ($op eq 'insert') {
-    my @pk = $ident->primary_columns;
+    my @pk = $ident->_pri_cols;
     my %pk;
     @pk{@pk} = ();