projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 db05800f9c305216aa06bcec7e707930ffb71c96..c04f1dbdc4ec4848902b4525422a0ea4b33d52d0 100755
(executable)
--- 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;
# 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;
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;
if (!$@) {
my @branch;
- eval {@branch = `git branch`};
+ eval {@branch = `git
-C $root
branch`};
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;