From: 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://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2145c6711ead2e9bc0e599044343c5c9064c3ddc;p=spider.git 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