* Read 'END' after password command

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index dd09d4a2ff4a6acec5232c35b568ff566fc540a3..100bfad681bc316798ea93508b6d9f186cf9070d 100644 (file)
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -670,6 +670,9 @@ sub _auth {
 
        if (sysread($sock, $reply, 255)) {
                if ($reply =~ /^password accepted/) {
+                       return 0 unless $self->_get_io_readiness($sock, 0);
+                       # read "END"
+                       sysread($sock, $reply, 255);
                        return 1;
                }
        }