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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-20 10:05:50 +0000 (Fri, 20 Feb 2009)
New Revision: 5598

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
Log:
A couple fixes to Ordered

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-02-20 10:05:35 UTC (rev 5597)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-02-20 10:05:50 UTC (rev 5598)
@@ -421,7 +421,7 @@
         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 @@
 
         $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}) {