From: Badlop <badlop@process-one.net>
Date: Mon, 10 Mar 2008 11:59:53 +0000 (+0000)
Subject: * src/ejabberd_update.erl: Fix crash when browsing the Update
X-Git-Tag: v2.0.1~50
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=1643999c35014d7d5a097a0c921ee803a121363a;p=ejabberd

* 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 21b026407..37de53dc4 100644
--- 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 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 ->