CI: Allow dashes in author e-mail domain names

bitcoin · Aug 21, 2022 · ebdfe6c · ebdfe6c
1 parent a863d52
commit ebdfe6c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl
@@ -127,7 +127,7 @@
 			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;