From 0e5b18c0ff8df885b1f6b326e90cc6e687e0838e Mon Sep 17 00:00:00 2001
From: Anthony Towns <aj@erisian.com.au>
Date: Tue, 28 Mar 2023 09:23:35 +1000
Subject: BIP327: fixups for buildtable.pl

---
 bip-0327.mediawiki    | 1 +
 scripts/buildtable.pl | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/bip-0327.mediawiki b/bip-0327.mediawiki
index 17ccbe5..07b40f5 100644
--- a/bip-0327.mediawiki
+++ b/bip-0327.mediawiki
@@ -10,6 +10,7 @@
   Created: 2022-03-22
   Post-History: 2022-04-05: https://lists.linuxfoundation.org/pipermail/bitcoin-dev/2022-April/020198.html [bitcoin-dev] MuSig2 BIP
                 2022-10-11: https://lists.linuxfoundation.org/pipermail/bitcoin-dev/2022-October/021000.html [bitcoin-dev] MuSig2 BIP
+  Comments-URI: https://github.com/bitcoin/bips/wiki/Comments:BIP-0327
 </pre>
 
 == Introduction ==
diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl
index 53a126c..292f1ee 100755
--- a/scripts/buildtable.pl
+++ b/scripts/buildtable.pl
@@ -89,7 +89,7 @@ my %DefinedLicenses = (
 );
 my %GrandfatheredPD = map { $_ => undef } qw(9 36 37 38 42 49 50 60 65 67 69 74 80 81 83 90 99 105 107 109 111 112 113 114 122 124 125 126 130 131 132 133 140 141 142 143 144 146 147 150 151 152);
 my %TolerateMissingLicense = map { $_ => undef } qw(1 10 11 12 13 14 15 16 21 31 33 34 35 39 43 44 45 47 61 64 68 70 71 72 73 101 102 106 120 121);
-my %TolerateTitleTooLong = map { $_ => undef } qw(39 44 45 47 49 60 67 68 69 73 74 75 80 81 99 105 106 109 113 122 126 131 143 145 147 173);
+my %TolerateTitleTooLong = map { $_ => undef } qw(39 44 45 47 49 60 67 68 69 73 74 75 80 81 99 105 106 109 113 122 126 131 143 145 147 173 327);
 
 my %emails;
 
@@ -125,7 +125,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 > 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";
 			my ($authorname, $authoremail) = ($1, $2);
-- 
cgit v1.2.3