[Bast-commits] r9193 - DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-21 22:49:22 +0100 (Wed, 21 Apr 2010)
New Revision: 9193

Modified:
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
Log:
RT56179: insert change_id, not change object, into audit log

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm	2010-04-21 06:03:08 UTC (rev 9192)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm	2010-04-21 21:49:22 UTC (rev 9193)
@@ -69,9 +69,9 @@
     if($self->in_storage) {
         my $j = $self->_journal_schema;
 
-        my $change = $j->journal_create_change;
+        my $change_id = $j->journal_create_change->id;
         my $prev = $self->result_source->resultset->find( $self->ident_condition );
-        $j->journal_record_in_history( $prev, audit_change_id => $change );
+        $j->journal_record_in_history( $prev, audit_change_id => $change_id );
     }
 }