From 2f57890cbe439839f7a53f69232d1433fd727db0 Mon Sep 17 00:00:00 2001 From: Dr Maxim Orlovsky Date: Sun, 21 Aug 2022 21:38:54 +0200 Subject: CI: Allow dashes in author e-mail domain names Signed-off-by: Dr. Maxim Orlovsky --- scripts/buildtable.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl index 1edd8c0..53a126c 100755 --- a/scripts/buildtable.pl +++ b/scripts/buildtable.pl @@ -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)//g; $emails{$authorname}->{$authoremail} = undef; -- cgit v1.2.3