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

page in Erlang R12 (EJAB-552)

SVN Revision: 1225

diff --git a/ChangeLog b/ChangeLog
index 21b02640748a87e48eefc3c0d8d35c1c80b20309..37de53dc42b2c27f9f41744ec64569e3d6767e22 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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  Badlop  <badlop@process-one.net>
 
        * src/mod_proxy65/mod_proxy65_service.erl: Implement alternative

diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl
index a9cefd06606317dea7b879a4c9c33a2f9959f5c2..ef3c4a47a8dfeec43cb5d432b18df5826a982e08 100644 (file)
--- 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 ->