diff options
Diffstat (limited to 'infra/dgit-repos-server')
-rwxr-xr-x | infra/dgit-repos-server | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index 9a66bdb..734fd71 100755 --- a/infra/dgit-repos-server +++ b/infra/dgit-repos-server @@ -205,16 +205,21 @@ sub mkemptyrepo ($$) { runcmd qw(git init --bare --quiet), "--shared=$sharedperm", $dir; } +sub mkrepo_fromtemplate ($) { + my ($dir) = @_; + my $template = "$dgitrepos/_template"; + debug "copy tempalate $template -> $dir"; + my $r = system qw(cp -a --), $template, $dir; + !$r or die "create new repo $dir failed: $r $!"; +} + #----- git-receive-pack ----- sub fixmissing__git_receive_pack () { mkrepotmp(); $destrepo = "$dgitrepos/_tmp/${package}_prospective"; acquiretree($destrepo, 1); - my $template = "$dgitrepos/_template"; - debug "fixmissing copy tempalate $template -> $destrepo"; - my $r = system qw(cp -a --), $template, $destrepo; - !$r or die "create new repo failed failed: $r $!"; + mkrepo_fromtemplate($destrepo); } sub makeworkingclone () { |