From 0d3f902d2fccc0ec7a92f0ed69346e4139939a59 Mon Sep 17 00:00:00 2001
From: "Kyle J. McKay" <mackyle@gmail.com>
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 <mackyle@gmail.com>
---
 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