CI: Allow dashes in author e-mail domain names

Signed-off-by: Dr. Maxim Orlovsky <orlovsky@pandoraprime.ch>
This commit is contained in:
Dr Maxim Orlovsky authored and Dr. Maxim Orlovsky committed 2022-08-21 21:43:18 +02:00
1 parent cdaccbedb5
commit 2f57890cbe
1 file changed
+1 -1
+1 -1
View File
@@ -127,7 +127,7 @@ while (++$bipnum <= $topbip) {
my $title_len = length($title);
die "$fn has too-long TItle ($title_len > 44 char max)" if $title_len > 44 and not exists $TolerateTitleTooLong{$bipnum};
} elsif ($field eq 'Author') {
$val =~ m/^(\S[^<@>]*\S) \<([^@>]*\@[\w.]+\.\w+)\>$/ or die "Malformed Author line in $fn";
$val =~ m/^(\S[^<@>]*\S) \<([^@>]*\@[\w.-]+\.\w+)\>$/ or die "Malformed Author line in $fn";
my ($authorname, $authoremail) = ($1, $2);
$authoremail =~ s/(?<=\D)$bipnum(?=\D)/<BIPNUM>/g;
$emails{$authorname}->{$authoremail} = undef;