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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-03-06 23:15:13 +0000 (Sat, 06 Mar 2010)
New Revision: 8920

Modified:
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
Log:
don't die on insert in firebird with no pk

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:05:25 UTC (rev 8919)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-03-06 23:15:13 UTC (rev 8920)
@@ -42,7 +42,7 @@
   if ($op eq 'insert') {
     $self->_auto_incs([]);
 
-    my @pk = $ident->_pri_cols;
+    my @pk = eval { local $@; $ident->_pri_cols };
     my %pk;
     @pk{@pk} = ();