From 1780c94ede2275cb6ae8622791d498cd583bb0ba Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sat, 14 Nov 2020 12:51:49 +0300
Subject: [PATCH] Say hello to ejabberd and SASL-md5digest auth

---
 lib/Authen/SASL/Perl/DIGEST_MD5.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Authen/SASL/Perl/DIGEST_MD5.pm b/lib/Authen/SASL/Perl/DIGEST_MD5.pm
index ca25b6e..aff3161 100644
--- a/lib/Authen/SASL/Perl/DIGEST_MD5.pm
+++ b/lib/Authen/SASL/Perl/DIGEST_MD5.pm
@@ -283,9 +283,9 @@ sub client_step {   # $self, $server_sasl_credentials
   }
 
   my $authzid = $self->_call('authname');
-  if (defined $authzid) {
-    $response{authzid} = $authzid;
-  }
+#  if (defined $authzid) {
+#    $response{authzid} = $authzid;
+#  }
 
   my $serv_name = $self->_call('serv');
   if (defined $serv_name) {