detect excess messages after sync

This commit is contained in:
Oswald Buddenhagen 2005-12-26 15:58:12 +00:00
parent 924e1a7f04
commit d3faf0d27f

View File

@ -268,6 +268,11 @@ sub ckbox($$$@)
print STDERR "flag mismatch for $bn:$num - expected '$flg', got '$ms{$num}[1]', config: $cfg\n";
exit 1;
}
delete $ms{$num};
}
if (%ms) {
print STDERR "excess messages in '$bn': ".join(", ", sort({$a <=> $b } keys(%ms))).", config: $cfg\n";
exit 1;
}
}