From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 20 Feb 2009 10:05:50 +0000 (+0000)
Subject: A couple fixes to Ordered
X-Git-Tag: v0.08240~81
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6583e94b996abab0ced25af13bf1f0914b5cad86;p=dbsrgits%2FDBIx-Class.git

A couple fixes to Ordered
---

diff --git a/lib/DBIx/Class/Ordered.pm b/lib/DBIx/Class/Ordered.pm
index 737477d..3229c81 100644
--- a/lib/DBIx/Class/Ordered.pm
+++ b/lib/DBIx/Class/Ordered.pm
@@ -421,7 +421,7 @@ sub update {
         return $self->next::method( @_ );
     }
 
-    $self->set_columns($_[0]) if @_ > 0;
+    $self->set_inflated_columns($_[0]) if @_ > 0;
     my %changes = $self->get_dirty_columns;
     $self->discard_changes;
 
@@ -441,7 +441,7 @@ sub update {
 
         $self->move_to_group(
             $new_group,
-            exists($changes{$pos_col}) ? delete($changes{$pos_col}) : $self->$pos_col
+            exists($changes{$pos_col}) ? delete($changes{$pos_col}) : $self->get_column ($pos_col)
         );
     }
     elsif (exists $changes{$pos_col}) {