X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FJournal%2FDB%2FAuditLog.pm;fp=lib%2FDBIx%2FClass%2FSchema%2FJournal%2FDB%2FAuditLog.pm;h=358f0b008a8ad440a3b3c13d75501c406d91794a;hb=f90c0e336a93775b548647c33facefdae08911cc;hp=70fe8183fe52bf363c89e8de11350ce330080558;hpb=141f29d2a45c21341f516655b3e61832f68ec240;p=dbsrgits%2FDBIx-Class-Journal.git

diff --git a/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm b/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
index 70fe818..358f0b0 100644
--- 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 );