[Bast-commits] r6215 - DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-05-11 21:45:05 +0000 (Mon, 11 May 2009)
New Revision: 6215

Modified:
   DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm
Log:
make sure we get just a string

Modified: DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm	2009-05-11 21:23:47 UTC (rev 6214)
+++ DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm	2009-05-11 21:45:05 UTC (rev 6215)
@@ -231,6 +231,7 @@
               "{ select => [ qw/" . (join ' ', @$_fields) . "/ ], distinct => 1 }";
         }
         else {
+          $_fields = $_fields[0] if ref $_fields eq 'ARRAY';
           carp "This syntax will be deprecated in 09, please use " . 
                "{ group_by => '${_fields}' }" . 
                " or " .