[Bast-commits] r8922 - DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-03-07 00:18:46 +0000 (Sun, 07 Mar 2010)
New Revision: 8922

Modified:
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
Log:
What I really meant

Modified: DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-03-06 23:52:50 UTC (rev 8921)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-03-07 00:18:46 UTC (rev 8922)
@@ -42,9 +42,7 @@
   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]{$_};