X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=517372fa9446b49aba4799c3528483dddb203381;hb=281b5d6baba694aa7b99be87a7be46a59ed0bd6c;hp=64a9a1ae5b7c153608c19416f95d64ebb287fa67;hpb=fb8e4bcdc434a78a5fee2837e02401df88623555;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 64a9a1ae..517372fa 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -706,7 +706,7 @@ sub broadcast_list sub process { - foreach my $dxchan (get_all()) { + foreach my $dxchan (values %channels) { while (my $data = shift @{$dxchan->{inqueue}}) { my ($sort, $call, $line) = $dxchan->decode_input($data);