diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-22 13:20:58 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-22 13:20:58 +0100 |
commit | 5d801671f8126208d31fb1649edd152165f5a999 (patch) | |
tree | 7e90ef345f892862fa302a321ac706d34212b638 /dgit | |
parent | 248d3ee0c1ff40fc3e7edba70baf7a68f0cc1a55 (diff) |
Better checking that the supplied .dsc and debian/changes correspond.
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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"; |