Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

Make sure update_info returns atoms only (EJAB-1595) (Thanks to Jose M Herrero)

Browse Source
This commit is contained in:
Evgeniy Khramtsov 2013-01-03 20:26:16 +10:00
parent d5506a3ff0
commit d47dee8009
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ejabberd_update.erl
View File

@ -142,23 +142,26 @@ build_script(Dir, UpdatedBeams) ->
release_handler_1:check_script( release_handler_1:check_script(
LowLevelScript, LowLevelScript,
[{ejabberd, "", filename:join(Dir, "..")}]), [{ejabberd, "", filename:join(Dir, "..")}]),
case Check of Check1 = case Check of
ok -> ok ->
%% This clause is for OTP R14B03 and older. %% This clause is for OTP R14B03 and older.
%% Newer Dialyzer reports a never match pattern; don't worry. %% Newer Dialyzer reports a never match pattern; don't worry.
?DEBUG("script: ~p~n", [Script]), ?DEBUG("script: ~p~n", [Script]),
?DEBUG("low level script: ~p~n", [LowLevelScript]), ?DEBUG("low level script: ~p~n", [LowLevelScript]),
?DEBUG("check: ~p~n", [Check]); ?DEBUG("check: ~p~n", [Check]),
ok;
{ok, []} -> {ok, []} ->
?DEBUG("script: ~p~n", [Script]), ?DEBUG("script: ~p~n", [Script]),
?DEBUG("low level script: ~p~n", [LowLevelScript]), ?DEBUG("low level script: ~p~n", [LowLevelScript]),
?DEBUG("check: ~p~n", [Check]); ?DEBUG("check: ~p~n", [Check]),
ok;
_ -> _ ->
?ERROR_MSG("script: ~p~n", [Script]), ?ERROR_MSG("script: ~p~n", [Script]),
?ERROR_MSG("low level script: ~p~n", [LowLevelScript]), ?ERROR_MSG("low level script: ~p~n", [LowLevelScript]),
?ERROR_MSG("check: ~p~n", [Check]) ?ERROR_MSG("check: ~p~n", [Check]),
error
end, end,
{Script, LowLevelScript, Check}. {Script, LowLevelScript, Check1}.
%% Copied from Erlang/OTP file: lib/sasl/src/systools.hrl %% Copied from Erlang/OTP file: lib/sasl/src/systools.hrl
-record(application, -record(application,