Merge pull request #1799 from reyjrar/reyjrar/undef_deref_author_email

Fix undefined deref in author email
metacpan · Nov 19, 2016 · 44a0df5 · 44a0df5
2 parents 91f635f + 3e7997a
commit 44a0df5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Web/Model/ReleaseInfo.pm b/lib/MetaCPAN/Web/Model/ReleaseInfo.pm
@@ -82,8 +82,10 @@ sub groom_contributors {
     $authors = [ grep { $_ ne 'unknown' } @$authors ];
 
     my $author_info = {
-        email =>
-            [ lc "$release->{author}\@cpan.org", @{ $author->{email} }, ],
+        email => [
+            lc "$release->{author}\@cpan.org",
+            @{ $author->{email} || [] },
+        ],
         name => $author->{name},
     };
     my %seen = map { $_ => $author_info }