diff options
| -rwxr-xr-x | git-send-email.perl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/git-send-email.perl b/git-send-email.perl index e907e0e..72508be 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -1318,6 +1318,13 @@ Message-Id: $message_id require Net::SMTP::SSL; $smtp_domain ||= maildomain(); require IO::Socket::SSL; + + # Suppress "variable accessed once" warning. + { + no warnings 'once'; + $IO::Socket::SSL::DEBUG = 1; + } + # Net::SMTP::SSL->new() does not forward any SSL options IO::Socket::SSL::set_client_defaults( ssl_verify_params()); |