From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 May 2015 16:45:12 +0000 (+0100)
Subject: dgit-repos-server: Break out policy_checkpackage() (nfc)
X-Git-Tag: debian/0.30~206
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=2d2bbb5a3356b960f18683773c6b370bcce9660f;hp=2965f30cca23b1cb7c1cf1d764b4f6b571f0a78e

dgit-repos-server: Break out policy_checkpackage() (nfc)
---

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 3f9298f2..2be40c57 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -323,6 +323,17 @@ sub movetogarbage () {
 	or die "$garbagerepo $!";
 }
 
+sub policy_checkpackage () {
+    my $lfh = lockrealtree();
+
+    $policy = policyhook(FRESHREPO,'check-package',$package);
+    if ($policy & FRESHREPO) {
+	movetogarbage();
+    }
+
+    close $lfh;
+}
+
 #----- git-receive-pack -----
 
 sub fixmissing__git_receive_pack () {
@@ -839,14 +850,7 @@ sub mode_ssh () {
 
     reject "unknown method" unless $mainfunc;
 
-    my $lfh = lockrealtree();
-
-    $policy = policyhook(FRESHREPO,'check-package',$package);
-    if ($policy & FRESHREPO) {
-	movetogarbage;
-    }
-
-    close $lfh;
+    policy_checkpackage();
 
     if (stat_exists realdestrepo) {
 	$destrepo = realdestrepo;