diff options
| author | Badlop <badlop@process-one.net> | 2010-02-20 19:31:36 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2010-02-20 19:31:36 +0100 |
| commit | 6df9a6ab332d698e4b3f3f81e18385d7c522aeba (patch) | |
| tree | f7f63c228c0052ae9f738056b6ff6776938b68ec | |
| parent | fixes typo in Russian translation (diff) | |
Use alternative of file:read_line/1 to not require R13B02
| -rw-r--r-- | src/ejabberd_config.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl index 2b508acee..383bb574b 100644 --- a/src/ejabberd_config.erl +++ b/src/ejabberd_config.erl @@ -191,7 +191,7 @@ describe_config_problem(Filename, Reason, LineNumber) -> get_config_lines(Filename, TargetNumber, PreContext, PostContext) -> {ok, Fd} = file:open(Filename, [read]), LNumbers = lists:seq(TargetNumber-PreContext, TargetNumber+PostContext), - NextL = file:read_line(Fd), + NextL = io:get_line(Fd, no_prompt), R = get_config_lines2(Fd, NextL, 1, LNumbers, []), file:close(Fd), R. @@ -200,8 +200,8 @@ get_config_lines2(_Fd, eof, _CurrLine, _LNumbers, R) -> lists:reverse(R); get_config_lines2(_Fd, _NewLine, _CurrLine, [], R) -> lists:reverse(R); -get_config_lines2(Fd, {ok, Data}, CurrLine, [NextWanted | LNumbers], R) -> - NextL = file:read_line(Fd), +get_config_lines2(Fd, Data, CurrLine, [NextWanted | LNumbers], R) when is_list(Data) -> + NextL = io:get_line(Fd, no_prompt), if CurrLine >= NextWanted -> Line2 = [integer_to_list(CurrLine), ": " | Data], |