From: Badlop <badlop@process-one.net>
Date: Wed, 21 Dec 2011 11:58:58 +0000 (+0100)
Subject: Fix update with stripped beams (thanks to Jose M Herrero)(EJAB-1520)
X-Git-Tag: v2.1.10~7
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=919cdc27dba1b3c1c0a1f68d329815439f021321;p=ejabberd

Fix update with stripped beams (thanks to Jose M Herrero)(EJAB-1520)
---

diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl
index 6bb354818..c6aed4db8 100644
--- a/src/ejabberd_update.erl
+++ b/src/ejabberd_update.erl
@@ -128,8 +128,10 @@ get_new_version(Module) ->
 
 get_current_version(Module) ->
     Attrs = Module:module_info(attributes),
-    {value, {vsn, CurVsn}} = lists:keysearch(vsn, 1, Attrs),
-    CurVsn.
+    case lists:keysearch(vsn, 1, Attrs) of
+        {value, {vsn, CurVsn}} -> CurVsn;
+        _ -> unknown_version
+    end.
 
 %% @spec(Dir::string(), UpdatedBeams::[atom()]) -> {Script,LowLevelScript,Check}
 build_script(Dir, UpdatedBeams) ->