[Bast-commits] r9280 - in DBIx-Class-Journal/1.000/trunk: . lib/DBIx/Class

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-30 16:14:55 +0100 (Fri, 30 Apr 2010)
New Revision: 9280

Modified:
   DBIx-Class-Journal/1.000/trunk/Changes
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
Log:
release 0.900001_06

Modified: DBIx-Class-Journal/1.000/trunk/Changes
===================================================================
--- DBIx-Class-Journal/1.000/trunk/Changes	2010-04-30 10:26:52 UTC (rev 9279)
+++ DBIx-Class-Journal/1.000/trunk/Changes	2010-04-30 15:14:55 UTC (rev 9280)
@@ -1,3 +1,6 @@
+0.900001_06 2010-04-30
+    - Fixed silly bug where update and delete didn't return what they were supposed to
+
 0.900001_05 2010-04-29
     - Removed undocumented override of deploy()
     - Added prepopulate_journal() to bootstrap insert logs, for retrofitting (oliver)

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-30 10:26:52 UTC (rev 9279)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm	2010-04-30 15:14:55 UTC (rev 9280)
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.900001_05';
+our $VERSION = '0.900001_06';
 $VERSION = eval $VERSION; # no errors in dev versions
 
 ## On create/insert, add new entry to AuditLog and new content to AuditHistory
@@ -40,8 +40,9 @@
 
 sub delete {
     my $self = shift;
-    $self->next::method(@_);
+    my $ret = $self->next::method(@_);
     $self->journal_log_delete(@_);
+    return $ret
 }
 
 sub journal_log_delete {
@@ -57,8 +58,9 @@
 
 sub update {
     my $self = shift;
-    $self->next::method(@_);
+    my $ret = $self->next::method(@_);
     $self->journal_log_update(@_);
+    return $ret
 }
 
 sub journal_log_update {