Fix erlc regression (reported-by Benoit Chesneau)

This commit is contained in:
Tuncer Ayaz 2011-06-01 14:27:16 +02:00
parent f2b687a046
commit 5b3082f443

View file

@ -252,9 +252,9 @@ internal_erl_compile(Source, Config, Outdir, ErlOpts) ->
case needs_compile(Source, Target, Hrls) of case needs_compile(Source, Target, Hrls) of
true -> true ->
Opts = [{outdir, filename:dirname(Target)}] ++ Opts = [{outdir, filename:dirname(Target)}] ++
ErlOpts ++ [{i, "include"}, report, return], ErlOpts ++ [{i, "include"}, report, return_errors],
case compile:file(Source, Opts) of case compile:file(Source, Opts) of
{ok, _, []} -> {ok, _} ->
ok; ok;
_ -> _ ->
?FAIL ?FAIL