Append wordsize to the architecture string

This commit is contained in:
Dave Smith 2010-02-10 14:05:52 -07:00
parent 268405d0dc
commit 22d21f63d0

View file

@ -48,7 +48,8 @@ get_cwd() ->
is_arch(ArchRegex) -> is_arch(ArchRegex) ->
Arch = erlang:system_info(system_architecture), Words = integer_to_list(8 * erlang:system_info(wordsize)),
Arch = erlang:system_info(system_architecture) ++ "-" ++ Words,
case re:run(Arch, ArchRegex, [{capture, none}]) of case re:run(Arch, ArchRegex, [{capture, none}]) of
match -> match ->
true; true;