X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FJournal.pm;h=21a481550ed0934049d102ccb296a177a31401dc;hb=f5c237df399ef82605f3464e6fe983bc09263dd8;hp=f1a8a1438b03b7b34e1ca454651c261da2251f07;hpb=caea9531808e959b1c9924c6fe34a84fb0bdc011;p=dbsrgits%2FDBIx-Class-Journal.git diff --git a/lib/DBIx/Class/Schema/Journal.pm b/lib/DBIx/Class/Schema/Journal.pm index f1a8a14..21a4815 100644 --- a/lib/DBIx/Class/Schema/Journal.pm +++ b/lib/DBIx/Class/Schema/Journal.pm @@ -61,7 +61,9 @@ sub connection $self->_journal_schema($journal_schema->compose_namespace(blessed($self) . '::Journal')); ## Create auditlog+history per table - my %j_sources = @{$self->journal_sources} ? map { $_ => 1 } @{$self->journal_sources} : map { $_ => 1 } $self->sources; + my %j_sources = map { $_ => 1 } $self->journal_sources + ? @{$self->journal_sources} + : $self->sources; foreach my $s_name ($self->sources) { next unless($j_sources{$s_name});