From a96a085a91927bf6fda88718092cc279e10ba7ce Mon Sep 17 00:00:00 2001 From: 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 () { push @fn, $1; } close CL; +my $subbuild; foreach my $fn (@fn) { $fn =~ s|::|/|g; open(CL, "$main::root/perl/${fn}.pm") or next; while () { - 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