X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=fcc792d6cc432619e2fd93c83a412612a50e134a;hp=b136ed98a81ed45a5b96eac0ff5815992ec3bd87;hb=5d801671f8126208d31fb1649edd152165f5a999;hpb=248d3ee0c1ff40fc3e7edba70baf7a68f0cc1a55

diff --git a/dgit b/dgit
index b136ed98..fcc792d6 100755
--- a/dgit
+++ b/dgit
@@ -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";