From f47d61bc13d4b93c2dc234ceebf27d2d3a18507f Mon Sep 17 00:00:00 2001
From: Ali Sabil <ali.sabil@tillitech.com>
Date: Mon, 21 Nov 2011 00:01:53 +0100
Subject: [PATCH] Add {vsn, _} support for reltool.config

---
 src/rebar_rel_utils.erl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/rebar_rel_utils.erl b/src/rebar_rel_utils.erl
index bc77c46..081e409 100644
--- a/src/rebar_rel_utils.erl
+++ b/src/rebar_rel_utils.erl
@@ -118,7 +118,7 @@ get_previous_release_path() ->
 load_config(ReltoolFile) ->
     case file:consult(ReltoolFile) of
         {ok, Terms} ->
-            Terms;
+            expand_version(Terms, filename:dirname(ReltoolFile));
         Other ->
             ?ABORT("Failed to load expected config from ~s: ~p\n",
                    [ReltoolFile, Other])
@@ -208,3 +208,17 @@ make_proplist([H|T], Acc) ->
      make_proplist(T, [{App,Ver}|Acc]);
 make_proplist([], Acc) ->
      Acc.
+
+expand_version(ReltoolConfig, Dir) ->
+    case lists:keyfind(sys, 1, ReltoolConfig) of
+        {sys, Sys} ->
+            ExpandedSys = {sys, [expand_rel_version(Term, Dir) || Term <- Sys]},
+            lists:keyreplace(sys, 1, ReltoolConfig, ExpandedSys);
+        _ ->
+            ReltoolConfig
+    end.
+
+expand_rel_version({rel, Name, Version, Apps}, Dir) ->
+    {rel, Name, rebar_utils:vcs_vsn(Version, Dir), Apps};
+expand_rel_version(Other, _Dir) ->
+    Other.