Use infinite receive (thanks Hakan Mattsson)

This commit is contained in:
Tuncer Ayaz 2011-04-04 16:30:23 +02:00
parent 300a4ac22e
commit 153aabee9b

View file

@ -191,7 +191,9 @@ show_info_maybe_halt(O, Opts, F) ->
case proplists:get_bool(O, Opts) of case proplists:get_bool(O, Opts) of
true -> true ->
F(), F(),
halt(0); halt(0),
%% workaround to delay exit until all output is written
receive after infinity -> ok end;
false -> false ->
false false
end. end.
@ -234,9 +236,7 @@ xref Run cross reference analysis
help Show the program options help Show the program options
version Show version information version Show version information
">>, ">>,
io:put_chars(S), io:put_chars(S).
%% workaround to delay exit until all output is written
timer:sleep(300).
%% %%
%% options accepted via getopt %% options accepted via getopt