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:
parent
0f9102e4d1
commit
78ce676e81
@ -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
|
||||||
|
@ -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 ->
|
||||||
|
Loading…
Reference in New Issue
Block a user