From af9d642a710fdcd3886fb321f73def9d05cf706a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Thu, 10 Dec 2020 14:02:28 +0100
Subject: [PATCH] Improve auth_mnesia:transform

---
 src/ejabberd_auth_mnesia.erl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/ejabberd_auth_mnesia.erl b/src/ejabberd_auth_mnesia.erl
index 92d30891b..baf0a49a9 100644
--- a/src/ejabberd_auth_mnesia.erl
+++ b/src/ejabberd_auth_mnesia.erl
@@ -277,8 +277,9 @@ transform(#passwd{us = {U, S}, password = Password} = P)
 	plain ->
 	    P
     end;
-transform(#passwd{password = Password} = P)
-  when is_record(Password, scram) ->
+transform(#passwd{password = {scram, _, _, _, _}} = P) ->
+    P;
+transform(#passwd{password = #scram{}} = P) ->
     P.
 
 import(LServer, [LUser, Password, _TimeStamp]) ->