RT60983: why is *_audit_log id col an auto-inc?

[dbsrgits/DBIx-Class-Journal.git] / lib / DBIx / Class / Schema / Journal / DB / AuditLog.pm

diff --git a/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm b/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
index 70fe818..358f0b0 100644 (file)
--- a/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
+++ b/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
@@ -25,7 +25,15 @@ sub journal_define_table {
     );
 
     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 );