Bug#914034: bug in Net::SSLeay?

[cyrille at bollu.be]

Hello,

I've investigated a little bit this problem, and I wonder if this could 
be caused by a bug in Net::SSLeay 1.85 which seems to be resolved in 
version 1.86_06 (not yet released on CPAN) via 
https://github.com/radiator-software/p5-net-ssleay/pull/56/commits/f67e75f2b50fa72da9a5111abc13b2bd06d33650.

For the record, here's a debugging session of the 
"LWP::UserAgent->new->post("https://facebook.com", { data => "foo" }) or 
die" command:

root at vm-cyrille-debian:~# perl -d -MLWP::UserAgent -e 
'LWP::UserAgent->new->post("https://facebook.com", { data => "foo" }) or 
die'

Loading DB routines from perl5db.pl version 1.53
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(-e:1):	LWP::UserAgent->new->post("https://facebook.com", { data 
=> "foo" }) or die
   DB<1> s
LWP::UserAgent::new(/usr/share/perl5/LWP/UserAgent.pm:23):
23:	    Carp::croak("Options to LWP::UserAgent should be key/value 
pairs, not hash reference")
24:	        if ref($_[1]) eq 'HASH';
   DB<1> c 206
LWP::UserAgent::CODE(0x55d48645fdf0)(/usr/share/perl5/LWP/UserAgent.pm:206):
206:	                $response = $protocol->request($request, $proxy, 
$arg, $size, $self->{timeout}) || die "No response returned by 
$protocol";
   DB<2> s
LWP::Protocol::http::request(/usr/share/perl5/LWP/Protocol/http.pm:127):
127:	    my($self, $request, $proxy, $arg, $size, $timeout) = @_;
   DB<2> c 377
LWP::Protocol::http::request(/usr/share/perl5/LWP/Protocol/http.pm:377):
377:			my $n = $socket->sysread($buf, 1024, length($buf));
   DB<3> s
IO::Socket::SSL::sysread(/usr/share/perl5/IO/Socket/SSL.pm:1150):
1150:	    my $self = shift;
   DB<3> c 1109
IO::Socket::SSL::_generic_read(/usr/share/perl5/IO/Socket/SSL.pm:1109):
1109:	    $SSL_ERROR = $! = undef;
   DB<4> v
1106:	    my $ssl =  ${*$self}{_SSL_object} || return;
1107:	    my $buffer=\$_[2];
1108
1109==>	    $SSL_ERROR = $! = undef;
1110:	    my ($data,$rwerr) = $read_func->($ssl, $length);
1111:	    while ( ! defined($data)) {
1112:		if ( my $err = $self->_skip_rw_error( $ssl, defined($rwerr) ? 
$rwerr:-1 )) {
1113:		    if ($err == $Net_SSLeay_ERROR_SYSCALL) {
1114 			# OpenSSL 1.1.0c+ : EOF can now result in SSL_read returning -1
1115:			if (not $!) {
   DB<4> n
IO::Socket::SSL::_generic_read(/usr/share/perl5/IO/Socket/SSL.pm:1110):
1110:	    my ($data,$rwerr) = $read_func->($ssl, $length);
   DB<4> s


This is where the code "hangs", and $read_func is actually 
Net::SSLeay::read

Br,

Cyrille