QPQ-AG/getopt
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The maximum width for the usage output is now 75 characters

Browse Source
This commit is contained in:
Juan Jose Comellas 2013-01-25 13:56:55 -03:00
parent b9f1e63971
commit 8151b3f37d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/getopt.erl
View File

@ -812,10 +812,8 @@ get_env_var(Prefix, Suffix, []) ->
-spec line_length() -> non_neg_integer(). -spec line_length() -> non_neg_integer().
line_length() -> line_length() ->
case io:columns() of case io:columns() of
{ok, Columns} when Columns >= ?LINE_LENGTH -> {ok, Columns} when Columns < ?LINE_LENGTH ->
Columns - 5; Columns - 1;
{ok, Columns} ->
Columns;
_ -> _ ->
?LINE_LENGTH ?LINE_LENGTH
end. end.