X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=infra%2Fdgit-repos-server;h=ed27c0eaec78efad42b45e079b69a6582c77fba1;hp=734fd719955221e053b9d6f77b43fd576535380c;hb=16f71298e0a7736a3833e44e4a9ebb356f919dc6;hpb=20f42b85b3fe5fc7e120fae26500298fececc5ad

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 $!;