force repo to use on git -C $root describe

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b942b44f9515ee034e22679e9a328c40f2f0820c..c04f1dbdc4ec4848902b4525422a0ea4b33d52d0 100755 (executable)
--- 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+/;