Print IO::Socket::SSL fatal errors during SSL setup

This commit is contained in:
Robert Nelson 2015-06-05 15:21:57 -07:00
parent f16c543527
commit e130b0f5f7
1 changed files with 3 additions and 0 deletions

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);