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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-18 12:52:26 +0000 (Fri, 18 Sep 2009)
New Revision: 7694

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
Log:
Nothing says the grouping column can not be nullable

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-09-18 12:36:58 UTC (rev 7693)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Ordered.pm	2009-09-18 12:52:26 UTC (rev 7694)
@@ -434,10 +434,7 @@
 sub move_to_group {
     my( $self, $to_group, $to_position ) = @_;
 
-    $self->throw_exception ('move_to_group() expects a group specification')
-        unless defined $to_group;
-
-    # if we're given a string, turn it into a hashref
+    # if we're given a single value, turn it into a hashref
     unless (ref $to_group eq 'HASH') {
         my @gcols = $self->_grouping_columns;