| … | |
… | |
| 659 | while (defined (my $buf = Net::SSLeay::read ($self->{tls}))) { |
659 | while (defined (my $buf = Net::SSLeay::read ($self->{tls}))) { |
| 660 | $self->{rbuf} .= $buf; |
660 | $self->{rbuf} .= $buf; |
| 661 | $self->_drain_rbuf; |
661 | $self->_drain_rbuf; |
| 662 | } |
662 | } |
| 663 | |
663 | |
| 664 | if ( |
|
|
| 665 | (my $err = Net::SSLeay::get_error ($self->{tls}, -1)) |
664 | my $err = Net::SSLeay::get_error ($self->{tls}, -1); |
|
|
665 | |
| 666 | != Net::SSLeay::ERROR_WANT_READ () |
666 | if ($err!= Net::SSLeay::ERROR_WANT_READ ()) { |
| 667 | ) { |
|
|
| 668 | if ($err == Net::SSLeay::ERROR_SYSCALL ()) { |
667 | if ($err == Net::SSLeay::ERROR_SYSCALL ()) { |
| 669 | $self->error; |
668 | $self->error; |
| 670 | } elsif ($err == Net::SSLeay::ERROR_SSL ()) { |
669 | } elsif ($err == Net::SSLeay::ERROR_SSL ()) { |
| 671 | $! = &Errno::EIO; |
670 | $! = &Errno::EIO; |
| 672 | $self->error; |
671 | $self->error; |
