diff options
| author | Dr Maxim Orlovsky <orlovsky@pandoraprime.ch> | 2022-08-21 21:38:54 +0200 |
|---|---|---|
| committer | Dr. Maxim Orlovsky <orlovsky@pandoraprime.ch> | 2022-08-21 21:43:18 +0200 |
| commit | 2f57890cbe439839f7a53f69232d1433fd727db0 (patch) | |
| tree | 4a5b5342b6266c0f8497a5324a304006d9d9f296 | |
| parent | cdaccbedb5e993a394b3abe9becc6244201246d6 (diff) | |
CI: Allow dashes in author e-mail domain names
Signed-off-by: Dr. Maxim Orlovsky <orlovsky@pandoraprime.ch>
| -rwxr-xr-x | scripts/buildtable.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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)/<BIPNUM>/g; $emails{$authorname}->{$authoremail} = undef; |