fix build calc to take into account sub directories

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fc0a6a04a429c22cbee00fa6598847eb7489065e..35881d452d88f96ee82f6516e0b59e23bdb4622e 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -348,6 +348,7 @@ while (<CL>) {
 }
 close 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+)/ ) {