diff options
| author | Badlop <badlop@process-one.net> | 2008-03-10 11:59:53 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2008-03-10 11:59:53 +0000 |
| commit | 78ce676e81cd52314d433786a89d6d29e2d01228 (patch) | |
| tree | 69358891dbac5d742994267d9f43700666612115 | |
| parent | SVN Revision: 1224 (diff) | |
* src/ejabberd_update.erl: Fix crash when browsing the Update
page in Erlang R12 (EJAB-552)
SVN Revision: 1225
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | src/ejabberd_update.erl | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -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> * src/web/ejabberd_http_poll.erl: Fixed HTTP headers when a diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl index a9cefd066..ef3c4a47a 100644 --- a/src/ejabberd_update.erl +++ b/src/ejabberd_update.erl @@ -55,12 +55,12 @@ update_info() -> UpdatedBeams = lists:filter( fun(Module) -> - {ok, {Module, [NewVsn]}} = + {ok, {Module, NewVsn}} = beam_lib:version(code:which(Module)), case code:is_loaded(Module) of {file, _} -> Attrs = Module:module_info(attributes), - {value, {vsn, [CurVsn]}} = + {value, {vsn, CurVsn}} = lists:keysearch(vsn, 1, Attrs), NewVsn /= CurVsn; false -> |