remove 'recursion limit' message fromRoute.pm

diff --git a/Changes b/Changes
index 9834a7ae1467a90f6772fce28e7dcb59e26595a6..88feeaefbd88ffdd32f7965ed5b1b1fcbfe7a1b4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,6 @@
 28May08=======================================================================
+1. remove "recursion limit" message from Route.pm
+28May08=======================================================================
 1. Improve the detection of short exact callsigns that are out of prefix area
 (eg K7A) (thank you FCC).
 2. Improve long line handling on console.pl

diff --git a/perl/Route.pm b/perl/Route.pm
index 769aefe8c01525e2d576540deb150432459bbbbd..7cbda347f2807216eba046b13d75bff12474aa02 100644 (file)
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -286,6 +286,26 @@ sub get
        return Route::Node::get($call) || Route::User::get($call);
 }
 
+# this may be a better algorithm
+#start = {start node}
+#end = {end node}
+#dist = 0
+#marked(n) = false for all nodes n
+#queue = [start]
+#while queue is not empty:
+#  dist = dist + 1
+#  newqueue = []
+#  for each node n in queue:
+#    for each edge from node n to node m:
+#      if not marked(m):
+#        marked(m) = true
+#        if m == end:
+#          -- We've found the end node
+#          -- it's a distance "dist" from the start
+#          return dist
+#        add m to newqueue
+#  queue = newqueue
+
 sub findroutes
 {
        my $call = shift;
@@ -298,7 +318,7 @@ sub findroutes
        # recursion detector (no point in recursing that deeply)
        return () if $seen->{$call};
        if ($level >= 20) {
-               dbg("Route::findroutes: recursion limit reached looking for $call");
+#              dbg("Route::findroutes: recursion limit reached looking for $call");
                return ();
        }
 

diff --git a/perl/Version.pm b/perl/Version.pm
index 541cf53a96d65cfa2b67b34e8998be2d2d21246c..c83ac47372fb0f183ee32d406bb67c25f245a03f 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '12';
+$build = '13';
 
 1;