include authors in contributors list

Author: haarg

lib/MetaCPAN/Web/Role/ReleaseInfo.pm

@@ -72,20 +72,28 @@ sub groom_contributors {
     my ( $self, $c, $release ) = @_;
 
     my $contribs = $release->{metadata}{x_contributors} || [];
+    my $authors  = $release->{metadata}{author}         || [];
 
     # just in case a lonely contributor makes it as a scalar
     $contribs = [$contribs]
         if !ref $contribs;
+    $authors = [$authors]
+        if !ref $authors;
 
+    my %seen = ( lc "$release->{author}\@cpan.org" => 1, );
     my @contribs;
-    for my $contrib (@$contribs) {
+
+    for my $contrib ( @$authors, @$contribs ) {
         my $name = $contrib;
         $name =~ s/\s*<([^<>]+@[^<>]+)>//;
         my $info = {
             name => $name,
             $1 ? ( email => $1 ) : (),
         };
 
+        next
+            if $seen{ $info->{email} }++;
+
         # heuristic to autofill pause accounts
         if (   !$info->{pauseid}
             and $info->{email} =~ /^(.*)\@cpan\.org$/ )