Merge pull request #24 from Robert-Nelson/tentacle-ssl-fix

Fix two SSL issues
This commit is contained in:
Ramón Novoa 2015-07-13 12:26:42 +02:00
commit 62cc0e2abe
2 changed files with 4 additions and 0 deletions

View File

@ -407,6 +407,7 @@ sub start_ssl {
if ($t_ssl_cert eq ''){
IO::Socket::SSL->start_SSL (
$t_socket,
SSL_verify_mode => '0x00',
);
}
elsif ($t_ssl_ca eq '') {

View File

@ -736,6 +736,9 @@ sub accept_connections {
sub serve_client() {
eval {
local $SIG{__DIE__} = sub {
print STDERR $_[0];
};
# Add client socket to select queue
$t_select = IO::Select->new ();
$t_select->add ($t_client_socket);