From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 9 Aug 2009 14:17:03 +0000 (+0000)
Subject: Whoops, missed a line
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a98b5b2fcd75207a9d8e6c851eb81d5ba4372bc0;p=dbsrgits%2FDBIx-Class-Historic.git

Whoops, missed a line
---

diff --git a/lib/DBIx/Class/Ordered.pm b/lib/DBIx/Class/Ordered.pm
index be06d3b..ed726de 100644
--- a/lib/DBIx/Class/Ordered.pm
+++ b/lib/DBIx/Class/Ordered.pm
@@ -471,6 +471,7 @@ sub move_to_group {
 
       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) ) {