fix feed query (--> fixes test t/controller/feed.t)

metacpan · May 24, 2016 · f318f47 · f318f47
1 parent 6423589
commit f318f47
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Feed.pm b/lib/MetaCPAN/Web/Controller/Feed.pm
@@ -80,8 +80,10 @@ sub author : Local : Args(1) {
     my $author_cv   = $c->model('API::Author')->get($author);
     my $releases_cv = $c->model('API::Release')->latest_by_author($author);
 
-    my $release_data
-        = [ map { $_->{fields} } @{ $releases_cv->recv->{hits}{hits} } ];
+    my $release_data = [
+        map { single_valued_arrayref_to_scalar($_) }
+        map { $_->{fields} } @{ $releases_cv->recv->{hits}{hits} }
+    ];
     my $author_info = $author_cv->recv;
 
     my $faves_cv = $author_info->{user}