From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Mon, 11 May 2009 21:52:11 +0000 (+0000)
Subject: oops
X-Git-Tag: v0.08103~101^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ce08f975f976b1de7a8f4461c0fa052e77ee489;p=dbsrgits%2FDBIx-Class.git

oops
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index d5eea7f..816bcf7 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -231,7 +231,7 @@ sub _recurse_fields {
               "{ select => [ qw/" . (join ' ', @$_fields) . "/ ], distinct => 1 }";
         }
         else {
-          $_fields = $_fields[0] if ref $_fields eq 'ARRAY';
+          $_fields = @{$_fields}[0] if ref $_fields eq 'ARRAY';
           carp "This syntax will be deprecated in 09, please use " . 
                "{ group_by => '${_fields}' }" . 
                " or " .