-$build = $main::version;
-
-my @fn;
-open(CL, "$main::root/perl/cluster.pl") or die "Cannot open cluster.pl $!";
-while (<CL>) {
- next unless /^use\s+([\w:_]+)/;
- 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+)\.?(\d+.\d+)?/ ) {
- $build += $1;
- $subbuild += $2 if $2;
- last;
- }
- }
- close CL;
-}
-$build = "$build.$subbuild" if $subbuild;