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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-07-03 02:44:17 +0100 (Tue, 03 Jul 2007)
New Revision: 3565

Modified:
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditHistory.pm
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
Log:
warnings go byebye

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditHistory.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditHistory.pm	2007-07-03 01:10:23 UTC (rev 3564)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditHistory.pm	2007-07-03 01:44:17 UTC (rev 3565)
@@ -18,7 +18,7 @@
     $data->{change} = { 
 #        ID => \'DEFAULT',
         changeset_id => $source->schema->current_changeset,
-        %{$data->{change}}, 
+        %{$data->{change}||{}}, 
     };
 
     $self->next::method($data, @rest);

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm	2007-07-03 01:10:23 UTC (rev 3564)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm	2007-07-03 01:44:17 UTC (rev 3565)
@@ -33,7 +33,7 @@
 #        ID => \'DEFAULT',
 #        ID => 1,
         changeset_id => $source->schema->current_changeset,
-        %{$data->{created}}, 
+        %{$data->{created}||{}}, 
     };
 
     $self->next::method($data, @rest);

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2007-07-03 01:10:23 UTC (rev 3564)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2007-07-03 01:44:17 UTC (rev 3565)
@@ -61,7 +61,9 @@
    $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});