From: minima Date: Sat, 9 Jun 2001 23:09:41 +0000 (+0000) Subject: cheat for now X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=1051376242b71ce69f92a1e92b62240167af9ccd;p=spider.git cheat for now --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 394f7cf1..875d2b66 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1720,8 +1720,12 @@ sub send_route if ($self->{routefilter}) { for (; @_ && $no; $no--) { my $r = shift; - ($filter, $hops) = $self->{routefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq); - push @rin, $r if $filter; + if ($r) { + ($filter, $hops) = $self->{routefilter}->it($self->{call}, $self->{dxcc}, $self->{itu}, $self->{cq}, $r->call, $r->dxcc, $r->itu, $r->cq); + push @rin, $r if $filter; + } else { + dbg('chan', "was sent a null value"); + } } } if (@rin) {