From: minima <minima>
Date: Fri, 8 Jun 2001 16:09:08 +0000 (+0000)
Subject: allow branches to affect the build number
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a96a085a91927bf6fda88718092cc279e10ba7ce;p=spider.git

allow branches to affect the build number
---

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fd23a253..fb8753e2 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -331,17 +331,20 @@ while (<CL>) {
 	push @fn, $1;
 }
 close CL;
+my $subbuild;
 foreach my $fn (@fn) {
 	$fn =~ s|::|/|g;
 	open(CL, "$main::root/perl/${fn}.pm") or next;
 	while (<CL>) {
-		if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
+		if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)\.?(\d+.\d+)?/ ) {
 			$build += $1;
+			$subbuild += $2 if $2;
 			last;
 		}
 	}
 	close CL;
 }
+$build = "$build.$subbuild" if $subbuild;
 
 Log('cluster', "DXSpider V$version, build $build started");