X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=35881d452d88f96ee82f6516e0b59e23bdb4622e;hb=b1de8d406cf0b76292d401c4b75f33fca86a822d;hp=fc0a6a04a429c22cbee00fa6598847eb7489065e;hpb=b67b50de92dbf61ce939b42f7c74e30dc58eba41;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fc0a6a04..35881d45 100755
--- 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+)/ ) {