projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3c56356
)
wip
author
Dirk Koopman
<djk@tobit.co.uk>
Sat, 11 Dec 2021 20:30:25 +0000
(20:30 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sat, 11 Dec 2021 20:30:25 +0000
(20:30 +0000)
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 69418a3b1aab5a08cb4af28ab07819e3edc62c63..06f93eef3444e9074cb4c7e768ede45cadc91b6e 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-367,6
+367,8
@@
sub AGWrestart
#
#############################################################
#
#############################################################
+chdir $root;
+
$starttime = $systime = time;
$systime_days = int ($systime / 86400);
$systime_daystart = $systime_days * 86400;
$starttime = $systime = time;
$systime_days = int ($systime / 86400);
$systime_daystart = $systime_days * 86400;
@@
-405,9
+407,9
@@
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 describe --long`};
+ eval {$desc = `git
-C $root
describe --long`};
if (!$@ && $desc) {
if (!$@ && $desc) {
- my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
+ my ($v, $s, $b, $g) = $desc =~ /^([\d
\
.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$version = $v;
$subversion = $s || 0;
$build = $b || 0;
$version = $v;
$subversion = $s || 0;
$build = $b || 0;
@@
-416,7
+418,7
@@
if (DXSql::init($dsn)) {
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+/;