From 78ce676e81cd52314d433786a89d6d29e2d01228 Mon Sep 17 00:00:00 2001 From: Badlop Date: Mon, 10 Mar 2008 11:59:53 +0000 Subject: * src/ejabberd_update.erl: Fix crash when browsing the Update page in Erlang R12 (EJAB-552) SVN Revision: 1225 --- src/ejabberd_update.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -> -- cgit v1.2.3