Skip to content

Commit 2f57890

Browse files
committed
CI: Allow dashes in author e-mail domain names
Signed-off-by: Dr. Maxim Orlovsky <[email protected]>
1 parent cdaccbe commit 2f57890

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

scripts/buildtable.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,7 @@
127127
my $title_len = length($title);
128128
die "$fn has too-long TItle ($title_len > 44 char max)" if $title_len > 44 and not exists $TolerateTitleTooLong{$bipnum};
129129
} elsif ($field eq 'Author') {
130-
$val =~ m/^(\S[^<@>]*\S) \<([^@>]*\@[\w.]+\.\w+)\>$/ or die "Malformed Author line in $fn";
130+
$val =~ m/^(\S[^<@>]*\S) \<([^@>]*\@[\w.-]+\.\w+)\>$/ or die "Malformed Author line in $fn";
131131
my ($authorname, $authoremail) = ($1, $2);
132132
$authoremail =~ s/(?<=\D)$bipnum(?=\D)/<BIPNUM>/g;
133133
$emails{$authorname}->{$authoremail} = undef;

0 commit comments

Comments
 (0)