Merge pull request #24 from Robert-Nelson/tentacle-ssl-fix
Fix two SSL issues
This commit is contained in:
commit
62cc0e2abe
|
@ -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 '') {
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue