Append os family to arch string

This commit is contained in:
Tuncer Ayaz 2012-06-23 22:04:58 +02:00
parent c41fda6a2f
commit 4e9e89bd0d
2 changed files with 7 additions and 2 deletions

View file

@ -1,2 +1,2 @@
rebar_utils.erl:158: Call to missing or unexported function escript:foldl/3
rebar_utils.erl:159: Call to missing or unexported function escript:foldl/3

View file

@ -71,7 +71,8 @@ is_arch(ArchRegex) ->
get_arch() ->
Words = wordsize(),
erlang:system_info(otp_release) ++ "-"
++ erlang:system_info(system_architecture) ++ "-" ++ Words.
++ erlang:system_info(system_architecture) ++ "-" ++ Words
++ "-" ++ os_family().
wordsize() ->
try erlang:system_info({wordsize, external}) of
@ -284,6 +285,10 @@ delayed_halt(Code) ->
%% Internal functions
%% ====================================================================
os_family() ->
{OsFamily, _} = os:type(),
atom_to_list(OsFamily).
get_deprecated_3(Get, Config, OldOpt, NewOpt, Default, When) ->
case Get(Config, NewOpt, Default) of
Default ->