avoid ssl_eof error on SSL_WANT_READ and friends

lib/DJabberd/Connection.pm

 package DJabberd::Connection;
 use strict;
 use warnings;
 use base 'Danga::Socket';
 use bytes;
 use fields (
             'saxhandler',
             'parser',
 
             'bound_jid',      # undef until resource binding - then DJabberd::JID object
@@ skipping 474 matching lines @@
             return;
         }
 
         # Net::SSLeays buffers internally, so if we didn't read anything, it's
         # in its buffer
         unless ($data && length $data) {
             # a few of these in a row implies an EOF.  else it could
             # just be the underlying socket was readable, but there
             # wasn't enough of an SSL packet for OpenSSL/etc to return
             # any unencrypted data back to us.
-            if (++$self->{'ssl_empty_read_ct'} >= 10) {
+            # We call 'actual_error_on_empty_read' to avoid counting
+            # SSL_ERROR_WANT_READ or SSL_ERROR_WANT_WRITE as 'actual' errors
+            my $err = DJabberd::Stanza::StartTLS->actual_error_on_empty_read($ssl);
+            if($err && ++$self->{'ssl_empty_read_ct'} >= 10) {
+                $self->log->warn("SSL Read error: $err (assuming ssl_eof)");
                 $self->close('ssl_eof');
             }
             return;
         }
         $self->{'ssl_empty_read_ct'} = 0;
         $bref = \$data;
     } else {
         # non-ssl mode:
         $bref = $self->read(20_000);
     }
@@ skipping 288 matching lines @@
 sub event_hup { my $self = shift; $self->close; }
 
 
 # Local Variables:
 # mode: perl
 # c-basic-indent: 4
 # indent-tabs-mode: nil
 # End:
 
 1;