projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
limit the no of spots stored for a search
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 3e57deb6dca15f9acebf0bd847f96228a88dbb8a..02e86a770ee7a6e3414d6b9f2280cc183d961289 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-483,7
+483,7
@@
sub setup_start
}
STDOUT->autoflush(1);
}
STDOUT->autoflush(1);
-
+
# try to load the database
if (DXSql::init($dsn)) {
$dbh = DXSql->new($dsn);
# try to load the database
if (DXSql::init($dsn)) {
$dbh = DXSql->new($dsn);
@@
-513,8
+513,8
@@
sub setup_start
if ($desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$s ||= '';
if ($desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$s ||= '';
- dbg("Git: $desc");
- dbg("Git: V=$v S=$s B=$b g=$g");
+ dbg("Git: $desc")
if isdbg('git')
;
+ dbg("Git: V=$v S=$s B=$b g=$g")
if isdbg('git')
;
$version = $v;
$build = $b || 0;
$gitversion = "$g\[r]";
$version = $v;
$build = $b || 0;
$gitversion = "$g\[r]";