Suppress error messages from IO::Socket::SSL->start_SSL.

Ref pandora_enterprise#5607
This commit is contained in:
Ramon Novoa 2020-07-31 13:16:11 +02:00
parent e14c3f7dbd
commit c3a98753b3
1 changed files with 5 additions and 2 deletions

View File

@ -434,8 +434,11 @@ sub sendmail {
socket_write("STARTTLS$CRLF") || return fail("send STARTTLS error");
socket_read()
|| return fail('STARTTLS error');
IO::Socket::SSL->start_SSL($S, SSL_hostname => $server, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE())
|| return fail("start_SSL failed");
{
local $SIG{__DIE__};
IO::Socket::SSL->start_SSL($S, SSL_hostname => $server, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE())
|| return fail("start_SSL failed");
};
# The client SHOULD send an EHLO command as the
# first command after a successful TLS negotiation.