Merge branch 'zj/send-email-authen-sasl'

* zj/send-email-authen-sasl:
send-email: auth plain/login fix

diff --git a/git-send-email.perl b/git-send-email.perl
index 734356a6fb3b22dceb4a1afe7751811628b60ce7..8ded7f5ce3556acf69a2d88e8b9aedae1d5e2da6 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -1098,6 +1098,12 @@ sub send_message {
                }
 
                if (defined $smtp_authuser) {
+                       # Workaround AUTH PLAIN/LOGIN interaction defect
+                       # with Authen::SASL::Cyrus
+                       eval {
+                               require Authen::SASL;
+                               Authen::SASL->import(qw(Perl));
+                       };
 
                        if (!defined $smtp_authpass) {