We only do loose parsing, here, and I don't think I've seen
a comma in a valid email address, so lets not support them.
# very loose regexes, here. We don't need RFC-compliance,
# just enough to make thing sanely displayable and pass to git
# very loose regexes, here. We don't need RFC-compliance,
# just enough to make thing sanely displayable and pass to git
-sub emails { ($_[0] =~ /([^<\s]+\@[^>\s]+)/g) }
+sub emails { ($_[0] =~ /([^<\s,]+\@[^>\s,]+)/g) }
sub from_name {
my ($val) = @_;
sub from_name {
my ($val) = @_;