From fea4a0b0c5ec78ae31e5a5e98c9597d323f77d98 Mon Sep 17 00:00:00 2001 From: Murch Date: Mon, 14 Apr 2025 11:45:12 -0700 Subject: [PATCH] process: Increase title limit --- scripts/buildtable.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl index 3889414a..48355f8e 100755 --- a/scripts/buildtable.pl +++ b/scripts/buildtable.pl @@ -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);