diff options
-rw-r--r-- | Debian/Dgit/Policy/Debian.pm | 7 |
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"); } |