Merge branch 'jk/send-email-ssl-errors'

Improve error reporting when SMTP TLS fails. * jk/send-email-ssl-errors: send-email: enable SSL level 1 debug output
git-mirror · Dec 21, 2015 · 7aaff08 · 7aaff08
2 parents d78cba4 + 9d60524
commit 7aaff08
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/git-send-email.perl b/git-send-email.perl
@@ -1332,6 +1332,13 @@ sub send_message {
 			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());