projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
febdc9b
)
allow branches to affect the build number
author
minima
<minima>
Fri, 8 Jun 2001 16:09:08 +0000
(16:09 +0000)
committer
minima
<minima>
Fri, 8 Jun 2001 16:09:08 +0000
(16:09 +0000)
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index fd23a2534ec8b4771ea1ffe2a81ccbe18147ef38..fb8753e24fd45782e85f351e1e233d7b457b8f8d 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-331,17
+331,20
@@
while (<CL>) {
push @fn, $1;
}
close 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>) {
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;
$build += $1;
+ $subbuild += $2 if $2;
last;
}
}
close CL;
}
last;
}
}
close CL;
}
+$build = "$build.$subbuild" if $subbuild;
Log('cluster', "DXSpider V$version, build $build started");
Log('cluster', "DXSpider V$version, build $build started");