Improve an error message from dgit-repos-policy-debian.

diff --git a/debian/changelog b/debian/changelog
index a25dbbacbb037c4e7ceb1296adfaf2d480b214f6..7a70d869fe6aeef8efe04b7eeea5e78b1775cd47 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -32,6 +32,7 @@ dgit (0.31~~) unstable; urgency=low
 
   Cleanups:
   * Remove an obsolete comment from the code.
+  * Improve an error message from dgit-repos-policy-debian.
 
  --
 

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index a0ac51916027d74e481cad34a47c80a04d2776ae..5b957d36ebc2db3700bf26221e38075120e967e3 100755 (executable)
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -346,7 +346,7 @@ END
        printdebug "|< ", $_ if $debuglevel>=2;
 
        next if m/^\w+ missing$/;
-       die unless m/^(\w+) (\w+) (\d+)\s/;
+       die "$_ ?" unless m/^(\w+) (\w+) (\d+)\s/;
        my ($objid,$objtype,$nbytes) = ($1,$2,$3);
 
        my $drop;