From 1051376242b71ce69f92a1e92b62240167af9ccd Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 9 Jun 2001 23:09:41 +0000
Subject: [PATCH] cheat for now

---
 perl/DXProt.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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) {
-- 
2.34.1