From: Peter Rabbitson 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) ) {