diff options
| -rw-r--r-- | debian/changelog | 1 | ||||
| -rwxr-xr-x | dgit | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 328c744..dc9e5ab 100644 --- a/debian/changelog +++ b/debian/changelog @@ -6,6 +6,7 @@ dgit (0.4) experimental; urgency=low * Fail if a required config item is missing. * Much better error messages. * Better error checking when parsing RFC822-style control data. + * Better checking that the supplied .dsc and debian/changes correspond. -- @@ -724,8 +724,12 @@ sub dopush () { 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"; |