X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=ee84c1508b3bdd47e07edad8597845760a34ac19;hb=dea6cbc282b2c101672139c9369af8c9bba7122e;hp=7276c6979fc7f08510cb1d2df8328dae7a470996;hpb=3364b9781b5d877b2eeb68b9dfbba3501d05e2cc;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index 7276c697..ee84c150 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -274,6 +274,7 @@ sub alldxchan
 	my $self = shift;
 	my @dxchan;
 #	dbg("Trying node $self->{call}") if isdbg('routech');
+
 	my $dxchan = DXChannel->get($self->{call});
 	push @dxchan, $dxchan if $dxchan;
 	
@@ -301,12 +302,16 @@ sub alldxchan
 sub dxchan
 {
 	my $self = shift;
+	
+	# ALWAYS return the locally connected channel if present;
+	my $dxchan = DXChannel->get($self->call);
+	return $dxchan if $dxchan;
+	
 	my @dxchan = $self->alldxchan;
 	return undef unless @dxchan;
 	
 	# determine the minimum ping channel
 	my $minping = 99999999;
-	my $dxchan;
 	foreach my $dxc (@dxchan) {
 		my $p = $dxc->pingave;
 		if (defined $p  && $p < $minping) {