chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
When cleaning up after failed clone, stat the to-be-cleaned-up directory before runni...
[dgit.git]
/
infra
/
dgit-repos-policy-debian
diff --git
a/infra/dgit-repos-policy-debian
b/infra/dgit-repos-policy-debian
index b6310d958d1ee61273f2348181ce7a7cc2056a98..e56d09096719254c243e77d99193bedaf5d78414 100755
(executable)
--- a/
infra/dgit-repos-policy-debian
+++ b/
infra/dgit-repos-policy-debian
@@
-2,7
+2,9
@@
# dgit repos policy hook script for Debian
use strict;
# dgit repos policy hook script for Debian
use strict;
-$SIG{__WARN__} = sub { die $_[0]; };
+
+use Debian::Dgit qw(:DEFAULT :policyflags);
+setup_sigwarn();
use POSIX;
use JSON;
use POSIX;
use JSON;
@@
-11,7
+13,6
@@
use DBI;
use IPC::Open2;
use Data::Dumper;
use IPC::Open2;
use Data::Dumper;
-use Debian::Dgit qw(:DEFAULT :policyflags);
use Debian::Dgit::Policy::Debian;
initdebug('%');
use Debian::Dgit::Policy::Debian;
initdebug('%');
@@
-359,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;