Print IO::Socket::SSL fatal errors during SSL setup
This commit is contained in:
parent
f16c543527
commit
e130b0f5f7
|
@ -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