summaryrefslogtreecommitdiff
path: root/infra/dgit-repos-policy-debian
diff options
context:
space:
mode:
Diffstat (limited to 'infra/dgit-repos-policy-debian')
-rwxr-xr-xinfra/dgit-repos-policy-debian4
1 files changed, 4 insertions, 0 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 5d843a0..a770c55 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -462,6 +462,10 @@ for (;;) {
poldb_setup(poldb_path($repos));
$stderr = '';
+ eval ($ENV{'DGIT_DRS_RPD_TEST_DBLOOP_HOOK'}//'');
+ die $@ if length $@;
+ # used by tests/tests/debpolicy-dbretry
+
$poldbh->{HandleError} = sub {
return 0 unless $poldbh->err == 5; # SQLITE_BUSY, not in .pm :-(
die bless { }, $db_busy_exception;