X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=infra%2Fdgit-repos-policy-debian;h=a770c55ec07d40e5858c2c782c41934a6ecab8f1;hp=5d843a06b611423e805b734567bce3f875c4126d;hb=520d2b03770aeb7be9b63fbdddb9ad896d535732;hpb=81f9266781da23514f287e2aae3fe0a1ead8092a

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 5d843a06..a770c55e 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;