and test on the correct thing!

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 58742e1952bd78b3e8618c8d51451c8c083a7f3f..0e321f2326efadff00b9ba70a19ee939037ffe85 100755 (executable)
--- 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