From 2145c6711ead2e9bc0e599044343c5c9064c3ddc Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 17 Jan 2003 16:20:53 +0000
Subject: [PATCH] and test on the correct thing!

---
 Changes         | 3 +++
 perl/cluster.pl | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

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
-- 
2.34.1