my $dxchan;
foreach $dxchan (@ch) {
- @val = sort {$a->call cmp $b->call} grep { $_->dxchan == $dxchan } @nodes;
+ @val = sort {$a->call cmp $b->call} grep { $_->dxchan && $_->dxchan == $dxchan } @nodes;
@l = ();
my $call = $dxchan->call;
$call ||= '???';