WTF

diff --git a/dgit b/dgit
index 3ad67ef51e46f37df221ccb7b5b38bb8d41b7869..8463e971a27dd65a20b2a81c39d70ef0db79d6fa 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -970,9 +970,12 @@ sub parsecontrolfh ($$;$) {
        my %opts = ('name' => $desc);
        $opts{allow_pgp}= $allowsigned || !$dpkgcontrolhash_noissigned;
        $c = Dpkg::Control::Hash->new(%opts);
-print STDERR "DCHn\n";
+eval {
+print STDERR "DCHn\n", Dumper(\%opts);
        $c->parse($fh,$desc) or die "parsing of $desc failed";
 print STDERR "parse\n";
+};
+confess $@ if $@;
        last if $allowsigned;
        last if $dpkgcontrolhash_noissigned;
        my $issigned= $c->get_option('is_pgp_signed');
@@ -4184,6 +4187,8 @@ sub push_mktags ($$ $$ $) {
 
     my $changes = parsecontrol($changesfile,$changesfilewhat);
     foreach my $field (qw(Source Distribution Version)) {
+       confess Dumper($changes,$clogp) unless $changes->{$field} &&
+            $clogp->{$field};
        $changes->{$field} eq $clogp->{$field} or
            fail "changes field $field \`$changes->{$field}'".
                " does not match changelog \`$clogp->{$field}'";

diff --git a/tests/tests/sourceonlypolicy b/tests/tests/sourceonlypolicy
index b0569c30b34deb551b45e772ef95557428dda919..b797b179c59e04d215e530248f88d8724cf0496b 100755 (executable)
--- a/tests/tests/sourceonlypolicy
+++ b/tests/tests/sourceonlypolicy
@@ -2,7 +2,7 @@
 set -e
 . tests/lib
 
-t-tstunt-parsechangelog
+#t-tstunt-parsechangelog
 
 t-prep-newpackage example 1.0