- foreach $dxchan (@ch) {
- @val = sort {$a->call cmp $b->call} grep { $_->dxchan && $_->dxchan == $dxchan } @nodes;
+ foreach my $n (@nodes) {
+ $dxchan = $n->dxchan;
+ push @{$ch{$dxchan->call}}, $n if $dxchan;
+ }
+
+ foreach my $call (sort keys %ch) {
+ @val = sort {$a->call cmp $b->call} @{$ch{$call}};