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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-10-10 16:49:15 +0000 (Sat, 10 Oct 2009)
New Revision: 7778

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
Log:
Whoops, this isn't right

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-10-09 20:44:21 UTC (rev 7777)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-10-10 16:49:15 UTC (rev 7778)
@@ -501,7 +501,7 @@
     }
     else {
       my $bumped_pos_val = $self->_position_value ($to_position);
-      my @between = ($to_position, $new_group_last_position);
+      my @between = map { $self->_position_value ($_) } ($to_position, $new_group_last_position);
       $self->_shift_siblings (1, @between);   #shift right
       $self->set_column( $position_column => $bumped_pos_val );
     }