Allow display base, not field type to have multiple ORed entries (for things like BASE_EXT_STRING)
svn path=/trunk/; revision=51235
This commit is contained in:
parent
1c2cb57a38
commit
5ffa911a6b
|
@ -287,17 +287,17 @@ sub verify_line {
|
|||
print "$line_number: Poorly formed hf_ variable ($proto_tree_item[3])!\n";
|
||||
$errors++;
|
||||
}
|
||||
foreach (split(/\|/, $proto_tree_item[9])) {
|
||||
if (!exists($FIELD_TYPE{$_})) {
|
||||
print "$line_number: Field type '$proto_tree_item[9]' unknown!\n";
|
||||
if (!exists($FIELD_TYPE{$proto_tree_item[9]})) {
|
||||
print "$line_number: Field type '$proto_tree_item[9]' unknown!\n";
|
||||
$errors++;
|
||||
}
|
||||
foreach (split(/\|/, $proto_tree_item[11])) {
|
||||
if ((!exists($DISPLAY_BASE{$_})) &&
|
||||
(!($proto_tree_item[11] =~ /\d+/))) {
|
||||
print "$line_number: Display base '$proto_tree_item[11]' unknown!\n";
|
||||
$errors++;
|
||||
}
|
||||
}
|
||||
if ((!exists($DISPLAY_BASE{$proto_tree_item[11]})) &&
|
||||
(!($proto_tree_item[11] =~ /\d+/))) {
|
||||
print "$line_number: Display base '$proto_tree_item[11]' unknown!\n";
|
||||
$errors++;
|
||||
}
|
||||
|
||||
} elsif ($proto_tree_item[1] eq "2") {
|
||||
if (!($proto_tree_item[3] =~ /^ei_/)) {
|
||||
|
|
Loading…
Reference in New Issue