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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-19 11:25:27 +0000 (Fri, 19 Feb 2010)
New Revision: 8758

Modified:
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
Log:
s/primary_columns/_pri_cols/ for Firebird

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-02-19 11:23:07 UTC (rev 8757)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-02-19 11:25:27 UTC (rev 8758)
@@ -34,7 +34,7 @@
   my ($op, $extra_bind, $ident, $args) = @_;
 
   if ($op eq 'insert') {
-    my @pk = $ident->primary_columns;
+    my @pk = $ident->_pri_cols;
     my %pk;
     @pk{@pk} = ();