X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=Debian%2FDgit%2FPolicy%2FDebian.pm;h=12f1ee11a9418ce6031e0c12b1fb5f0312790b40;hp=03118b1d5ebbfe78a16ab37f314fd0afe045246a;hb=9e3287b0f9611af321b7cb1ca7b7757dbe96cfd2;hpb=399c708ec36a98ac6126ad0ae07991c111b095cb

diff --git a/Debian/Dgit/Policy/Debian.pm b/Debian/Dgit/Policy/Debian.pm
index 03118b1d..12f1ee11 100644
--- a/Debian/Dgit/Policy/Debian.pm
+++ b/Debian/Dgit/Policy/Debian.pm
@@ -27,12 +27,15 @@ sub poldb_path ($) {
     return "$repos/policy.sqlite3";
 }
 
-sub poldb_setup ($) {
-    my ($policydb) = @_;
+sub poldb_setup ($;$) {
+    my ($policydb, $hook) = @_;
 
     $poldbh ||= DBI->connect("dbi:SQLite:$policydb",'','', {
 	RaiseError=>1, PrintError=>1, AutoCommit=>0
 			   });
+
+    $hook->() if $hook;
+
     $poldbh->do("PRAGMA foreign_keys = ON");
 }