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 6bb35481884e5d2d873eefbd24ce803aefcf4930..c6aed4db86472723c7803bf602d01ab80ff587b5 100644 (file)
--- 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) ->