From 0d3f902d2fccc0ec7a92f0ed69346e4139939a59 Mon Sep 17 00:00:00 2001 From: "Kyle J. McKay" Date: Sun, 1 Aug 2021 20:55:48 -0700 Subject: [PATCH] update-all-config.pl: check private refs area config Signed-off-by: Kyle J. McKay --- toolbox/update-all-config.pl | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/toolbox/update-all-config.pl b/toolbox/update-all-config.pl index f574876..3de6f4b 100755 --- a/toolbox/update-all-config.pl +++ b/toolbox/update-all-config.pl @@ -5,7 +5,7 @@ use strict; use warnings; use vars qw($VERSION); -BEGIN {*VERSION = \'2.0'} +BEGIN {*VERSION = \'2.1'} use File::Basename; use File::Spec; use Cwd qw(realpath); @@ -296,6 +296,20 @@ sub process_one_project } foreach (@mkdirs); return 0 if $reallybad; + if (-d "private") { + is_git_dir("private") or + pwarn "$proj: exists but not a gitdir: private\n" unless $quiet; + } else { + my $result; + if ($dryrun) { + $result = "created (dryrun)"; + } else { + $result = (system("$Girocco::Config::basedir/bin/create-private-area", $proj) == 0) ? + "created" : "creation failed"; + } + pmsg($proj, "private refs area", $result) unless $quiet; + } + -d $_ && check_dperm($proj, $_) or $bad = 1 foreach (@fixdpermsdirs); my $fp = openfindne(@fixdpermsrwx, qw(-xdev -type d ( ! -path objects/?? -o -prune ) ! -perm), "-$drwxmode", "-print"); while (<$fp>) { -- 2.11.4.GIT