[Bast-commits] r9763 - in DBIx-Class-Journal/1.000/trunk: . lib/DBIx/Class/Schema/Journal/DB

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-10-12 00:30:50 +0000 (Tue, 12 Oct 2010)
New Revision: 9763

Modified:
   DBIx-Class-Journal/1.000/trunk/Changes
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
Log:
RT60983: why is *_audit_log id col an auto-inc?

Modified: DBIx-Class-Journal/1.000/trunk/Changes
===================================================================
--- DBIx-Class-Journal/1.000/trunk/Changes	2010-10-12 00:29:10 UTC (rev 9762)
+++ DBIx-Class-Journal/1.000/trunk/Changes	2010-10-12 00:30:50 UTC (rev 9763)
@@ -1,3 +1,6 @@
+    - Don't copy column data from schema that does anything other
+      than define data type.  e.g. autoinc stuff
+
 0.900200 2010-07-24
     - No longer use 'scalar gmtime' for set_date in ChangeSet;
       that was brittle and doesn't work on many databases, now

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm	2010-10-12 00:29:10 UTC (rev 9762)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm	2010-10-12 00:30:50 UTC (rev 9763)
@@ -25,7 +25,15 @@
     );
 
     foreach my $column ( $source->primary_columns ) {
-        $class->add_column( $column => { %{ $source->column_info($column) } } );
+        my %column_info = %{$source->column_info($column)};
+        delete $column_info{$_} for qw(
+           is_autoincrement
+           is_foreign_key
+           default_value
+           sequence
+           auto_nextval
+        );
+        $class->add_column( $column => \%column_info );
     }
 
     $class->set_primary_key( $source->primary_columns );