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

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-03-13 07:10:52 +0000 (Fri, 13 Mar 2009)
New Revision: 5751

Modified:
   DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/ResultSet.pm
Log:
use proper format

Modified: DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/ResultSet.pm	2009-03-13 07:02:03 UTC (rev 5750)
+++ DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/ResultSet.pm	2009-03-13 07:10:52 UTC (rev 5751)
@@ -1147,7 +1147,7 @@
     }
 
     $attrs->{select} = $group_by; 
-    $attrs->{from} = (ref $self)->new($self->result_source, $attrs)->cursor->as_query;
+    $attrs->{from} = [ { 'mesub' => (ref $self)->new($self->result_source, $attrs)->cursor->as_query } ];
   }
 
   $attrs->{select} = { count => '*' };