Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
don't use regex match var for email unless it actually matched
  • Loading branch information
haarg committed Sep 24, 2014
1 parent 1f65bc9 commit d61d496
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions lib/MetaCPAN/Web/Role/ReleaseInfo.pm
Expand Up @@ -94,8 +94,10 @@ sub groom_contributors {

my @contribs = map {
my $name = $_;
$name =~ s/\s*<([^<>]+@[^<>]+)>//;
my $email = $1;
my $email;
if ($name =~ s/\s*<([^<>]+@[^<>]+)>//) {
$email = $1;
}
my $info;
my $dupe;
if ( $email and $info = $seen{$email} ) {
Expand Down

0 comments on commit d61d496

Please sign in to comment.