Add comments about Dialyzer warnings

diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl
index a878e9be43a499e0ab5a49db8705f0de23979127..7572d3da4cc98b149757b09eccfcc1695fd98e49 100644 (file)
--- a/src/ejabberd_update.erl
+++ b/src/ejabberd_update.erl
@@ -69,6 +69,7 @@ update(ModulesToUpdate) ->
 
 %% OTP R14B03 and older provided release_handler_1:eval_script/3
 %% But OTP R14B04 and newer provide release_handler_1:eval_script/5
+%% Dialyzer reports a call to missing function; don't worry.
 eval_script(Script, Apps, LibDirs) ->
     case lists:member({eval_script, 5}, release_handler_1:module_info(exports)) of
        true ->
@@ -143,6 +144,8 @@ build_script(Dir, UpdatedBeams) ->
          [{ejabberd, "", filename:join(Dir, "..")}]),
     case Check of
        ok -> 
+           %% This clause is for OTP R14B03 and older.
+           %% Newer Dialyzer reports a never match pattern; don't worry.
            ?DEBUG("script: ~p~n", [Script]),
            ?DEBUG("low level script: ~p~n", [LowLevelScript]),
            ?DEBUG("check: ~p~n", [Check]);

diff --git a/src/eldap/eldap.erl b/src/eldap/eldap.erl
index 354ab297e7e9dcd58e4638baeb4bd6c47efecbd3..265845e908594c13b087d7de532f40608d8f3f36 100644 (file)
--- a/src/eldap/eldap.erl
+++ b/src/eldap/eldap.erl
@@ -439,6 +439,7 @@ init([]) ->
     end;
 init({Hosts, Port, Rootdn, Passwd, Opts}) ->
     catch ssl:start(),
+    %% ssl:seed was removed in OTP R14B04, newer Dialyzer will complain
     catch ssl:seed(randoms:get_string()),
     Encrypt = case proplists:get_value(encrypt, Opts) of
                  tls -> tls;