X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=02e86a770ee7a6e3414d6b9f2280cc183d961289;hb=dd01a8824f3896015e031cf301181760a6496bbd;hp=3e57deb6dca15f9acebf0bd847f96228a88dbb8a;hpb=fda536aef281e0f6fc68a02c537d18650bd5505f;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3e57deb6..02e86a77 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -483,7 +483,7 @@ sub setup_start
 	}
 	STDOUT->autoflush(1);
 
-	
+
 	# 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 ||= '';
-					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]";