[Bast-commits] r6822 - DBIx-Class/0.08/branches/grouped_prefetch/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-28 12:38:36 +0000 (Sun, 28 Jun 2009)
New Revision: 6822

Modified:
   DBIx-Class/0.08/branches/grouped_prefetch/lib/DBIx/Class/ResultSet.pm
Log:
Normalize group_by

Modified: DBIx-Class/0.08/branches/grouped_prefetch/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/grouped_prefetch/lib/DBIx/Class/ResultSet.pm	2009-06-28 12:38:12 UTC (rev 6821)
+++ DBIx-Class/0.08/branches/grouped_prefetch/lib/DBIx/Class/ResultSet.pm	2009-06-28 12:38:36 UTC (rev 6822)
@@ -2703,6 +2703,10 @@
     $attrs->{order_by} = [];
   }
 
+  if ($attrs->{group_by} and ! ref $attrs->{group_by}) {
+    $attrs->{group_by} = [ $attrs->{group_by} ];
+  }
+
   # If the order_by is otherwise empty - we will use this for TOP limit
   # emulation and the like.
   # Although this is needed only if the order_by is not defined, it is