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=======================================================================
 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
 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);
 }
 
        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;
 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) {
        # 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 ();
        }
 
                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';
 
 $version = '1.55';
 $subversion = '0';

-$build = '12';
+$build = '13';

 
 1;
 
 1;