X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=c04f1dbdc4ec4848902b4525422a0ea4b33d52d0;hb=daaad9dda3a184f2b3ecd23891eda101995d036f;hp=db05800f9c305216aa06bcec7e707930ffb71c96;hpb=e637d28f26ba92ea69edb06c6c564e1acfffd75e;p=spider.git

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+/;