From: minima <minima>
Date: Fri, 17 Jan 2003 16:20:53 +0000 (+0000)
Subject: and test on the correct thing!
X-Git-Tag: PRE-1-52~89
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=2145c6711ead2e9bc0e599044343c5c9064c3ddc

and test on the correct thing!
---

diff --git a/Changes b/Changes
index c26b5708..93c294ff 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+17Jan03=======================================================================
+1. Fix problem with lines being left in the main input queue for a 
+disconnected/ing node.
 14Jan03=======================================================================
 1. Tidy up AUTOLOAD functions
 2. Make sure that empty PC16s are not sent on startup to a node.
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