fix missing if $ref in alldxchan

diff --git a/perl/Route.pm b/perl/Route.pm
index f406a98a619bf2460abb532a97d088b8320b1d0d..3f940426f4068ffb1e7242de41765eff645b5125 100644 (file)
--- 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;
 }