[Bast-commits] r7279 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-09 14:17:03 +0000 (Sun, 09 Aug 2009)
New Revision: 7279

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
Log:
Whoops, missed a line

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-08-09 13:27:30 UTC (rev 7278)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-08-09 14:17:03 UTC (rev 7279)
@@ -471,6 +471,7 @@
 
       my @original_values = $cursor->next;
       $self->set_inflated_columns ({ %values, map { $_ => shift @original_values } (@dirty_cols) });
+      delete $self->{_dirty_columns}{$_} for (@dirty_cols);
     }
 
     if ($self->_is_in_group ($to_group) ) {