From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 24 Jun 2008 19:25:40 +0000 (+0100)
Subject: improve debugging on findroutes
X-Git-Tag: 1.56~80
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=d638bda3f73da1b09d029105a0f3c95093c50df5

improve debugging on findroutes
---

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;