25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00

* src/ejabberd_update.erl: Fix crash when browsing the Update

page in Erlang R12 (EJAB-552)

SVN Revision: 1225
This commit is contained in:
Badlop 2008-03-10 11:59:53 +00:00
parent 0f9102e4d1
commit 78ce676e81
2 changed files with 7 additions and 2 deletions

View File

@ -1,3 +1,8 @@
2008-03-10 Badlop <badlop@process-one.net>
* src/ejabberd_update.erl: Fix crash when browsing the Update
page in Erlang R12 (EJAB-552)
2008-03-09 Alexey Shchepin <alexey@process-one.net> 2008-03-09 Alexey Shchepin <alexey@process-one.net>
* src/web/ejabberd_http_poll.erl: Fixed HTTP headers when a * src/web/ejabberd_http_poll.erl: Fixed HTTP headers when a

View File

@ -55,12 +55,12 @@ update_info() ->
UpdatedBeams = UpdatedBeams =
lists:filter( lists:filter(
fun(Module) -> fun(Module) ->
{ok, {Module, [NewVsn]}} = {ok, {Module, NewVsn}} =
beam_lib:version(code:which(Module)), beam_lib:version(code:which(Module)),
case code:is_loaded(Module) of case code:is_loaded(Module) of
{file, _} -> {file, _} ->
Attrs = Module:module_info(attributes), Attrs = Module:module_info(attributes),
{value, {vsn, [CurVsn]}} = {value, {vsn, CurVsn}} =
lists:keysearch(vsn, 1, Attrs), lists:keysearch(vsn, 1, Attrs),
NewVsn /= CurVsn; NewVsn /= CurVsn;
false -> false ->