Improve error message for .dsc parsing failures more generally.

[dgit.git] / dgit

diff --git a/dgit b/dgit
index ebeb8807b4419ded8d33237d9b09061e9a907d9a..b24264676f23de3e67c5a78592c51b7d6c921982 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -603,7 +603,7 @@ sub parsecontrolfh ($$;$) {
        $opts{allow_pgp}= $allowsigned || !$dpkgcontrolhash_noissigned;
 print STDERR Dumper(\%opts);
        $c = Dpkg::Control::Hash->new(%opts);
        $opts{allow_pgp}= $allowsigned || !$dpkgcontrolhash_noissigned;
 print STDERR Dumper(\%opts);
        $c = Dpkg::Control::Hash->new(%opts);

-       $c->parse($fh) or die "parsing of $desc failed";
+       $c->parse($fh,$desc) or die "parsing of $desc failed";

        last if $allowsigned;
        last if $dpkgcontrolhash_noissigned;
        my $issigned= $c->get_option('is_pgp_signed');
        last if $allowsigned;
        last if $dpkgcontrolhash_noissigned;
        my $issigned= $c->get_option('is_pgp_signed');