diff options
| author | Tristan Sloughter <t@crashfast.com> | 2015-02-16 08:04:25 -0600 |
|---|---|---|
| committer | Tristan Sloughter <t@crashfast.com> | 2015-02-16 08:04:50 -0600 |
| commit | 9f2133df471197b936187a03a3c47b6bd860ea92 (patch) | |
| tree | fbefed5bbfbb2cb40c1e51832df4d5c186a8f370 | |
| parent | 63a765f1b0533b8ca036c29abfed29239b5d52f3 (diff) | |
needs_update: on ref defined deps only have to match prefix if 7+ chars
| -rw-r--r-- | src/rebar_git_resource.erl | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/src/rebar_git_resource.erl b/src/rebar_git_resource.erl index 4edaa48..bd0a978 100644 --- a/src/rebar_git_resource.erl +++ b/src/rebar_git_resource.erl @@ -37,18 +37,25 @@ needs_update(Dir, {git, Url, {branch, Branch}}) -> needs_update(Dir, {git, Url, "master"}) -> needs_update(Dir, {git, Url, {branch, "master"}}); needs_update(Dir, {git, Url, Ref}) -> - case Ref of - {ref, Ref1} -> - Ref1; - Ref1 -> - Ref1 - end, - {ok, Current} = rebar_utils:sh(?FMT("git rev-parse -q HEAD", []), [{cd, Dir}]), Current1 = string:strip(string:strip(Current, both, $\n), both, $\r), + + Ref2 = case Ref of + {ref, Ref1} -> + Length = length(Current1), + if + Length >= 7 -> + lists:sublist(Ref1, Length); + true -> + Ref1 + end; + Ref1 -> + Ref1 + end, + ?DEBUG("Comparing git ref ~s with ~s", [Ref1, Current1]), - not ((Current1 =:= Ref1) andalso compare_url(Dir, Url)). + not ((Current1 =:= Ref2) andalso compare_url(Dir, Url)). compare_url(Dir, Url) -> {ok, CurrentUrl} = rebar_utils:sh(?FMT("git config --get remote.origin.url", []), |