[Bast-commits] r8506 - DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/Sybase

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-02 13:33:57 +0000 (Tue, 02 Feb 2010)
New Revision: 8506

Modified:
   DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/Sybase/ASA.pm
Log:
deref table name if needed, check all columns for identity column not just PK

Modified: DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/Sybase/ASA.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/Sybase/ASA.pm	2010-02-02 12:21:13 UTC (rev 8505)
+++ DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/Sybase/ASA.pm	2010-02-02 13:33:57 UTC (rev 8506)
@@ -40,9 +40,10 @@
 
   if (not $is_identity_insert) {
     my ($identity_col) = grep $source->column_info($_)->{is_auto_increment},
-      $source->primary_columns;
+      $source->columns;
     my $dbh = $self->_get_dbh;
     my $table_name = $source->from;
+    $table_name    = $$table_name if ref $table_name;
 
     my ($identity) = $dbh->selectrow_array("SELECT GET_IDENTITY('$table_name')");