make sure we get just a string

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 43533a4..d5eea7f 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -231,6 +231,7 @@ sub _recurse_fields {
               "{ 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 " .