summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Debian/Dgit/Policy/Debian.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/Debian/Dgit/Policy/Debian.pm b/Debian/Dgit/Policy/Debian.pm
index 03118b1..12f1ee1 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");
}