We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent cdaccbe commit 2f57890Copy full SHA for 2f57890
scripts/buildtable.pl
@@ -127,7 +127,7 @@
127
my $title_len = length($title);
128
die "$fn has too-long TItle ($title_len > 44 char max)" if $title_len > 44 and not exists $TolerateTitleTooLong{$bipnum};
129
} elsif ($field eq 'Author') {
130
- $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";
131
my ($authorname, $authoremail) = ($1, $2);
132
$authoremail =~ s/(?<=\D)$bipnum(?=\D)/<BIPNUM>/g;
133
$emails{$authorname}->{$authoremail} = undef;
0 commit comments