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

[dgit.git] / infra / 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$/;
        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;
        my ($objid,$objtype,$nbytes) = ($1,$2,$3);
 
        my $drop;