cheat for now

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 394f7cf1e8b2d061334e57cf86fecb79a6b923dc..875d2b6694314691dd9b219ae03401227870bfdd 100644 (file)
--- 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) {