Fix Dialyzer warning

This commit is contained in:
Tuncer Ayaz 2012-01-09 12:42:53 +01:00
parent c15d99d8bb
commit 4e471e6986

View file

@ -179,10 +179,13 @@ make_tar(NameVer, NewVer, NewName) ->
ok = file:delete(Absname), ok = file:delete(Absname),
case os:type() of case os:type() of
{win32,_} -> {win32,_} ->
{ok, _} = file:copy( {ok, _} =
filename:join([".", "releases", NewVer, "start.boot"]), file:copy(
filename:join([".", "releases", NewVer, NewName ++ ".boot"])); filename:join([".", "releases", NewVer, "start.boot"]),
_ -> ok filename:join([".", "releases", NewVer, NewName ++ ".boot"])),
ok;
_ ->
ok
end, end,
{ok, Tar} = erl_tar:open(Absname, [write, compressed]), {ok, Tar} = erl_tar:open(Absname, [write, compressed]),
ok = erl_tar:add(Tar, "lib", []), ok = erl_tar:add(Tar, "lib", []),