From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 21 Mar 2015 11:55:13 +0000 (+0000)
Subject: dgit-repos-server: Break out movetogarbage
X-Git-Tag: debian/0.30~257
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=16f71298e0a7736a3833e44e4a9ebb356f919dc6

dgit-repos-server: Break out movetogarbage
---

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 734fd719..ed27c0ea 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -213,6 +213,15 @@ sub mkrepo_fromtemplate ($) {
     !$r or die "create new repo $dir failed: $r $!";
 }
 
+sub movetogarbage () {
+    my $garbagerepo = "$dgitrepos/_tmp/${package}_garbage";
+    acquiretree($garbagerepo,1);
+    rmtree $garbagerepo;
+    rename $realdestrepo, $garbagerepo
+	or $! == ENOENT
+	or die "rename repo $realdestrepo to $garbagerepo: $!";
+}
+
 #----- git-receive-pack -----
 
 sub fixmissing__git_receive_pack () {
@@ -642,12 +651,7 @@ sub parseargsdispatch () {
 
     my ($policy, $pollock) = policyhook(FRESHREPO,'check-package',$package);
     if ($policy & FRESHREPO) {
-	my $garbagerepo = "$dgitrepos/_tmp/${package}_garbage";
-	acquiretree($garbagerepo,1);
-	rmtree $garbagerepo;
-	rename $realdestrepo, $garbagerepo
-	    or $! == ENOENT
-	    or die "rename repo $destrepo to $garbagerepo: $!";
+	movetogarbage;
     }
     close $pollock or die $!;