From a96a085a91927bf6fda88718092cc279e10ba7ce Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 8 Jun 2001 16:09:08 +0000
Subject: [PATCH] allow branches to affect the build number

---
 perl/cluster.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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");
 
-- 
2.43.0