improve debugging on findroutes

diff --git a/perl/Route.pm b/perl/Route.pm
index 794b8d3d71e15084a36d6854a81bf4129e33a49e..f637539c0c41c11f5ffa531b485789430a2fc4da 100644 (file)
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -295,7 +295,10 @@ sub findroutes
 
        # return immediately if we are directly connected
        my $dxchan = DXChannel::get($call);
-       return $dxchan if $dxchan;
+       if ($dxchan) {
+               dbg("ROUTE: findroutes $call -> directly connected") if isdbg('findroutes');
+               return $dxchan;
+       }
 
        my $nref = Route::get($call);
        return () unless $nref;
@@ -306,7 +309,10 @@ sub findroutes
        foreach my $p (@parent) {
                # return immediately if we are directly connected or a user's parent node is
                $dxchan = DXChannel::get($p);
-               return $dxchan if $dxchan;
+               if ($dxchan) {
+                       dbg("ROUTE: findroutes $call -> connected direct via parent $p") if isdbg('findroutes');
+                       return $dxchan;
+               }
 
                my $r = Route::Node::get($p);
                if ($r) {

diff --git a/perl/Version.pm b/perl/Version.pm
index 6673aff64c8afa91077afa7518d227e83c99cbb5..afd61429e23cb3fc5ea928de13a4763287fd7583 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 = '15';
+$build = '16';
 
 1;