Infrastructure: Improve an error message in dgit-repos-policy-debian.

diff --git a/debian/changelog b/debian/changelog
index 62c7313230f6df752176ed2ec04e0c58e3145b6a..4dc18a31709a2592eb69a43df6083b4d348fc5d2 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -9,6 +9,7 @@ dgit (1.3~~) UNRELEASED; urgency=low
     likely similar problems elsewhere and improve a (harmless) instance in
     dgit-repos-server.
   * Test suite: Fix t-restriction-x-dgit-schroot-build in non-adt mode.
     likely similar problems elsewhere and improve a (harmless) instance in
     dgit-repos-server.
   * Test suite: Fix t-restriction-x-dgit-schroot-build in non-adt mode.

+  * Infrastructure: Improve an error message in dgit-repos-policy-debian.

 
  -- Ian Jackson <ijackson@chiark.greenend.org.uk>  Sun, 16 Aug 2015 15:15:50 +0100
 
 
  -- Ian Jackson <ijackson@chiark.greenend.org.uk>  Sun, 16 Aug 2015 15:15:50 +0100
 

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index fbf2d516219378ffd2caa86ff294f23c21acca32..e56d09096719254c243e77d99193bedaf5d78414 100755 (executable)
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -360,7 +360,7 @@ END
        printdebug "|< ", $_ if $debuglevel>=2;
 
        next if m/^\w+ missing$/;
        printdebug "|< ", $_ if $debuglevel>=2;
 
        next if m/^\w+ missing$/;

-       die "$_ ?" unless m/^(\w+) (\w+) (\d+)\s/;
+       die "($taintid) $_ ?" unless m/^(\w+) (\w+) (\d+)\s/;

        my ($objid,$objtype,$nbytes) = ($1,$2,$3);
 
        my $drop;
        my ($objid,$objtype,$nbytes) = ($1,$2,$3);
 
        my $drop;