Infra: dgit-repos-server: unlock _template

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 50cba57082ddc385d22afd1f3fba23b8853eb27d..a6f57be64311ba3fea2d84462404b4fd2c16e29b 100755 (executable)
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -291,10 +291,11 @@ sub mkemptyrepo ($$) {
 sub mkrepo_fromtemplate ($) {
     my ($dir) = @_;
     my $template = "$dgitrepos/_template";
 sub mkrepo_fromtemplate ($) {
     my ($dir) = @_;
     my $template = "$dgitrepos/_template";

-    locksometree($template);
+    my $templatelock = locksometree($template);

     printdebug "copy template $template -> $dir\n";
     my $r = system qw(cp -a --), $template, $dir;
     !$r or die "create new repo $dir failed: $r $!";
     printdebug "copy template $template -> $dir\n";
     my $r = system qw(cp -a --), $template, $dir;
     !$r or die "create new repo $dir failed: $r $!";

+    close $templatelock;

 }
 
 sub movetogarbage () {
 }
 
 sub movetogarbage () {