process: Increase title limit

This commit is contained in:
Murch committed 2026-01-12 14:29:09 -08:00
1 parent 3fddf95984
commit fea4a0b0c5
1 file changed
+1 -1
+1 -1
View File
@@ -159,7 +159,7 @@ while (++$bipnum <= $topbip) {
} elsif ($field eq 'Title') {
$title = $val;
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};
die "$fn has too-long Title ($title_len > 50 char max)" if $title_len > 50 and not exists $TolerateTitleTooLong{$bipnum};
} elsif ($field eq 'Authors') {
$val =~ m/^(\S[^<@>]*\S) \<([^@>]*\@[\w.-]+\.\w+)\>$/ or die "Malformed Authors line in $fn";
my ($authorname, $authoremail) = ($1, $2);