fix build calc to take into account sub directories

diff --git a/Changes b/Changes
index 79151ac4c028ad47401b0a93822a40a8f254350f..b1241856f4953236a1b79da623df52dd8127bc89 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,8 @@
+07Jun01=======================================================================
+1. move userconfig.pl and nodeconfig.pl to stat/
+2. fix problem with locally connected users not being removed from the 
+routing tables
+3. Fix the build calc to take into account subdirectories
 06Jun01=======================================================================
 1. add stat/route_node and stat/route_user commands
 2. add sh/userconfig command (to show backward links to nodes)

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+)/ ) {