]> dxcluster.org Git - spider.git/commitdiff
and test on the correct thing!
authorminima <minima>
Fri, 17 Jan 2003 16:20:53 +0000 (16:20 +0000)
committerminima <minima>
Fri, 17 Jan 2003 16:20:53 +0000 (16:20 +0000)
Changes
perl/cluster.pl

diff --git a/Changes b/Changes
index c26b5708e414b5ea3c7ca3998e24d5863bd3cd7c..93c294ff1ec2aa42313b4bec5c9dc5e574bca563 100644 (file)
--- 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.
index 58742e1952bd78b3e8618c8d51451c8c083a7f3f..0e321f2326efadff00b9ba70a19ee939037ffe85 100755 (executable)
@@ -244,7 +244,7 @@ sub rec
 sub clean_inqueue
 {
        my $dxchan = shift;
-       @inqueue = grep {$_ != $dxchan} @inqueue;
+       @inqueue = grep {$_->{dxchan} != $dxchan} @inqueue;
 }
 
 sub login