X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=18460f14298a942753c7abba3025e892427ec4d6;hb=cfa6a715412c7c4972ec85034bd2d945751317cb;hp=78f2f594b02706bcf7e44b1ffeaa4fbb9ad0c672;hpb=34f47f7d220c9244769f1c6360a92fcae18803ba;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 78f2f594..18460f14 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -460,6 +460,9 @@ sub setup_start
 				my $desc = $repo->command_oneline(['describe', '--long'], STDERR => 0);
 				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");
 					$version = $v;
 					$build = $b || 0;
 					$gitversion = "$g\[r]";