- $package = $clogp->{Source};
- my $dscfn = "${package}_$clogp->{Version}.dsc";
- stat "../$dscfn" or die "$dscfn $!";
- $dsc = parsecontrol("../$dscfn");
- print DEBUG "format $dsc->{Format}\n";
- if ($dsc->{Format} eq '3.0 (quilt)') {
- commit_quilty_patch();
+ $package = getfield $clogp 'Source';
+ my $cversion = getfield $clogp, 'Version';
+ my $dscfn = "${package}_${cversion}.dsc";
+ stat "../$dscfn" or
+ fail "looked for .dsc $dscfn, but $!;".
+ " maybe you forgot to build";
+ $dsc = parsecontrol("../$dscfn","$dscfn");
+ my $dscpackage = getfield $dsc, 'Source';
+ my $format = getfield $dsc, 'Format';
+ my $dversion = getfield $dsc, 'Version';
+ ($dscpackage eq $package && $dversion eq $cversion)
+ fail "$dsc is for $dscpackage $dversion".
+ " but debian/changelog is for $package $cversion";
+ print DEBUG "format $format\n";
+ if ($format eq '3.0 (quilt)') {
+ print "Format \`$format', urgh\n";
+ commit_quilty_patch($dversion);