[Bast-commits] r8695 - DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-13 20:15:46 +0000 (Sat, 13 Feb 2010)
New Revision: 8695

Modified:
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Row.pm
Log:
fix fail in t/72pg.t related to new autoinc retrieval code in ::Row

Modified: DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Row.pm	2010-02-13 15:37:57 UTC (rev 8694)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Row.pm	2010-02-13 20:15:46 UTC (rev 8695)
@@ -355,6 +355,7 @@
 
     my @non_pk_autoincs = grep {
       (not exists $pk{$_})
+      && (not defined $self->get_column($_))
       && $rsrc->column_info($_)->{is_auto_increment}
     } $rsrc->columns;