my $changes = parsecontrol($changesfile,$changesfile);
foreach my $field (qw(Source Distribution Version)) {
$changes->{$field} eq $clogp->{$field} or
my $changes = parsecontrol($changesfile,$changesfile);
foreach my $field (qw(Source Distribution Version)) {
$changes->{$field} eq $clogp->{$field} or