Have a problem with Mojo::IOLoop::TLS

[Alexey Stavrov]

I have strange behavior (strange warnings) when use Mojo::IOLoop::TLS.

I wrote minimal example of code.

#!/usr/bin/perl

use Mojo::Base -strict;


use Mojo::IOLoop;
use Mojo::IOLoop::TLS;
use Mojo::IOLoop::Client;
use Mojo::IOLoop::Server;


#$IO::Socket::SSL::DEBUG = 3;


my $server = Mojo::IOLoop::Server->new;
my $client = Mojo::IOLoop::Client->new;


my ($server_handle, $client_handle);
my ($client_stream, $server_stream);
my @tlss;


sub upgrade_handle {
  my ($handle, $is_server, $cb) = @_;
  my $tls = Mojo::IOLoop::TLS->new($handle);
  $tls->on(upgrade => sub { $cb->(pop) });
  $tls->on(error => sub { warn pop });
  $tls->negotiate(server => $is_server);
}


sub upgrade_handles {
  Mojo::IOLoop->delay(
    sub {
      my $d = shift;


      upgrade_handle($server_handle, 1, $d->begin(0));
      upgrade_handle($client_handle, 0, $d->begin(0));
    },
    sub {
      my ($d, $server_handle, $client_handle) = @_;


      say 'YEAH';


      Mojo::IOLoop->singleton->reactor->io($server_handle => sub {});
      Mojo::IOLoop->singleton->reactor->io($client_handle => sub {});
    }
  );
}


$client->on(connect => sub {
  $client_handle = pop;
  Mojo::IOLoop->timer(0.1 => sub { upgrade_handles() });
});


$client->on(error => sub { warn pop });


$server->on(error => sub { warn pop });


$server->on(accept => sub {
  $server_handle = pop;
  $client->connect(address => 'www.yandex.ru', port => 443);
});


$server->listen(port => 8443);
$server->start;
Mojo::IOLoop->start;

I get this output when I run it

$ perl 9.pl 
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
SSL accept attempt failed error:140760FC:SSL routines:SSL23_GET_CLIENT_HELLO:unknown protocol
YEAH
^C
$ 

This error (warnings) is not stable and to get it you have to run the script many times.

I have such development environment:

perl - 5.22

Mojolicious - 7.32

IO::Socket::SSL - 2.048

Net::SSLeay - 1.81

openssl - 1.0.2g

Does anyone had the same problem as me?

[Alexey Stavrov]

I forgot to add an example of how I make a request:

curl -k "https://127.0.0.1:8443"

пятница, 2 июня 2017 г., 16:36:00 UTC+5 пользователь Alexey Stavrov написал: