From cc24321cfb0cd5bcb0516ba5587dcf84fed2725e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 8 Jun 2001 16:27:46 +0000
Subject: [PATCH] fix missing if $ref in alldxchan

---
 perl/Route.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Route.pm b/perl/Route.pm
index f406a98a..3f940426 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -243,7 +243,7 @@ sub alldxchan
 	my @dxchan = @_;
 	foreach my $p (@{$self->{parent}}) {
 		my $ref = $self->get($p);
-		push @dxchan, $ref->alldxchan(@dxchan);
+		push @dxchan, $ref->alldxchan(@dxchan) if $ref;
 	}
 	return @dxchan;
 }
-- 
2.34.1