From 2145c6711ead2e9bc0e599044343c5c9064c3ddc Mon Sep 17 00:00:00 2001 From: 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.43.0