From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 7 Mar 2010 00:18:46 +0000 (+0000)
Subject: What I really meant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a145954dce811fb6fc341001f98beed67e8a09d;p=dbsrgits%2FDBIx-Class-Historic.git

What I really meant
---

diff --git a/lib/DBIx/Class/Storage/DBI/InterBase.pm b/lib/DBIx/Class/Storage/DBI/InterBase.pm
index 2e5d706..8002b4a 100644
--- a/lib/DBIx/Class/Storage/DBI/InterBase.pm
+++ b/lib/DBIx/Class/Storage/DBI/InterBase.pm
@@ -42,9 +42,7 @@ sub _prep_for_execute {
   if ($op eq 'insert') {
     $self->_auto_incs([]);
 
-    my @pk = eval { local $@; $ident->_pri_cols };
-    my %pk;
-    @pk{@pk} = ();
+    @pk{$ident->primary_columns} = ();
 
     my @auto_inc_cols = grep {
       my $inserting = $args->[0]{$_};