From b1de8d406cf0b76292d401c4b75f33fca86a822d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 7 Jun 2001 10:47:19 +0000
Subject: [PATCH] fix build calc to take into account sub directories

---
 Changes         | 5 +++++
 perl/cluster.pl | 1 +
 2 files changed, 6 insertions(+)

diff --git a/Changes b/Changes
index 79151ac4..b1241856 100644
--- 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 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+)/ ) {
-- 
2.34.1