From cc24321cfb0cd5bcb0516ba5587dcf84fed2725e Mon Sep 17 00:00:00 2001 From: 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.43.0