From daaad9dda3a184f2b3ecd23891eda101995d036f Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 11 Dec 2021 19:26:14 +0000
Subject: [PATCH] force repo to use on git -C $root describe

---
 Changes         | 3 ++-
 perl/cluster.pl | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 44ac206c..a139b629 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 11Dec21=======================================================================
 1. Removed dependency on perl Git package.
-2. Force code to change directory to $DXSPIDER_ROOT || '/spider'.
+2. Force code to change directory to $DXSPIDER_ROOT || '/spider'. Also force
+   git -C $root describe.
 10Dec21=======================================================================
 1. Fix the output of set/dxgrid, set/usstate and set/dxcq or set/dxitu to how
    it was always supposed to be since 2003.
diff --git a/perl/cluster.pl b/perl/cluster.pl
index db05800f..c04f1dbd 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -522,7 +522,7 @@ sub setup_start
 		
 		# determine the real Git build number and branch
 		my $desc;
-		eval {$desc = `git describe --long`};
+		eval {$desc = `git -C $root describe --long`};
 		if (!$@ && $desc) {
 			my ($v, $s, $b, $g) = $desc =~ /^([\d\.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
 			$version = $v;
@@ -533,7 +533,7 @@ sub setup_start
 		if (!$@) {
 			my @branch;
 			
-			eval {@branch = `git branch`};
+			eval {@branch = `git -C $root branch`};
 			unless ($@) {
 				for (@branch) {
 					my ($star, $b) = split /\s+/;
-- 
2.34.1