X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2Fcluster.pl;h=0e321f2326efadff00b9ba70a19ee939037ffe85;hb=2145c6711ead2e9bc0e599044343c5c9064c3ddc;hp=58742e1952bd78b3e8618c8d51451c8c083a7f3f;hpb=28788cb9ae3fb39965886dbee36eec9266b1d904;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 58742e19..0e321f23 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -244,7 +244,7 @@ sub rec
 sub clean_inqueue
 {
 	my $dxchan = shift;
-	@inqueue = grep {$_ != $dxchan} @inqueue;
+	@inqueue = grep {$_->{dxchan} != $dxchan} @inqueue;
 }
 
 sub login