X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fcluster.pl;h=c04f1dbdc4ec4848902b4525422a0ea4b33d52d0;hb=daaad9dda3a184f2b3ecd23891eda101995d036f;hp=b942b44f9515ee034e22679e9a328c40f2f0820c;hpb=d7c1b365e73f33a68449a3a0132c628e289ef526;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b942b44f..c04f1dbd 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -90,6 +90,7 @@ BEGIN {
 	
 }
 
+
 use DXVars;
 use SysVar;
 
@@ -478,6 +479,8 @@ sub setup_start
 	#
 	#############################################################
 
+	chdir $root;
+	
 	$starttime = $systime = time;
 	$systime_days = int ($systime / 86400);
 	$systime_daystart = $systime_days * 86400;
@@ -519,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;
@@ -530,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+/;