diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl index 1e18d49a..596ab006 100755 --- a/scripts/buildtable.pl +++ b/scripts/buildtable.pl @@ -39,6 +39,9 @@ my %MiscField = ( 'Requires' => undef, 'Proposed-Replacement' => undef, ); +my %VersionField = ( + 'Version' => undef, +); my @FieldOrder = qw( BIP Layer @@ -198,6 +201,8 @@ while (++$bipnum <= $topbip) { die "Invalid date format in $fn" unless $val =~ /^20\d{2}\-(?:0[1-9]|1[0-2])\-(?:0[1-9]|[12]\d|30|31)$/; } elsif (exists $EmailField{$field}) { $val =~ m/^(\S[^<@>]*\S) \<[^@>]*\@[\w.]+\.\w+\>$/ or die "Malformed $field line in $fn"; + } elsif (exists $VersionField{$field}) { + $val =~ m/^(\d+\.\d+\.\d+)$/ or die "Malformed $field line in $fn"; } elsif (not exists $MiscField{$field}) { die "Unknown field $field in $fn"; }