[Bast-commits] r5598 - DBIx-Class/0.08/trunk/lib/DBIx/Class
ribasushi at dev.catalyst.perl.org
ribasushi at dev.catalyst.perl.org
Fri Feb 20 10:05:50 GMT 2009
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}) {
More information about the Bast-commits
mailing list