* 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 1448de1b67664a1f0eb2b254bfec70b507da7d38..40139db7d1c918e04c72f438a92e3bee6b67b025 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  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 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 ->