[svn:qpsmtpd] r571 - trunk/lib/Danga

[email protected] 16 Nov 2005 15:04:37 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Wed Nov 16 07:04:37 2005
New Revision: 571

Modified:
   trunk/lib/Danga/Client.pm
Log:
With PollServer, I get several unrecognized commands before the disconnect
from plugins/count_unrecognized_commands kicks in.

Several buffered lines are read and processed by
Danga::Client::process_read_buf() without checking if the socket was
closed.  The attached patch seems to fix it.
-- Brian Grossman


Modified: trunk/lib/Danga/Client.pm
==============================================================================
--- trunk/lib/Danga/Client.pm	(original)
+++ trunk/lib/Danga/Client.pm	Wed Nov 16 07:04:37 2005
@@ -111,6 +111,7 @@ sub process_read_buf {
 sub readable {
     my Danga::Client $self = shift;
     return 0 if $self->{disable_read} > 0;
+    return 0 if $self->{closed} > 0;
     return 1;
 }