From d638bda3f73da1b09d029105a0f3c95093c50df5 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 24 Jun 2008 20:25:40 +0100 Subject: [PATCH] improve debugging on findroutes --- perl/Route.pm | 10 ++++++++-- perl/Version.pm | 2 +- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/perl/Route.pm b/perl/Route.pm index 794b8d3d..f637539c 100644 --- 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 6673aff6..afd61429 100644 --- 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; -- 2.43.0