From 919cdc27dba1b3c1c0a1f68d329815439f021321 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 21 Dec 2011 12:58:58 +0100
Subject: [PATCH] Fix update with stripped beams (thanks to Jose M
 Herrero)(EJAB-1520)

---
 src/ejabberd_update.erl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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) ->