projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix git describe for 2009 vintage git!
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 7436c874dfed6770c9add6812d71cfd49ee38959..b544d7de26c47a321852b9be2d13611b1a309ea9 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-407,7
+407,7
@@
if (DXSql::init($dsn)) {
# determine the real Git build number and branch
my $desc;
# determine the real Git build number and branch
my $desc;
- eval {$desc = `git -
C $roo
t describe --long`};
+ eval {$desc = `git -
-git-dir=$root/.gi
t 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;
@@
-418,7
+418,7
@@
if (DXSql::init($dsn)) {
if (!$@) {
my @branch;
if (!$@) {
my @branch;
- eval {@branch = `git -
C $roo
t branch`};
+ eval {@branch = `git -
-git-dir=$root/.gi
t branch`};
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;