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

Avoid unnecessary construction of deep strings

Browse Source 
Especially when the -spec specifies that a string() is returned.
This commit is contained in:
Kostis Sagonas 2010-10-01 21:40:47 +08:00 committed by Juan Jose Comellas
parent 8f54692a29
commit 76cebab9a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/getopt.erl
View File

@ -456,10 +456,10 @@ usage_options_reverse([{Name, Short, Long, _ArgSpec, Help} | Tail], Acc) ->
case Short of case Short of
% Only long form. % Only long form.
undefined -> undefined ->
[$-, $-, Long]; [$-, $- | Long];
% Both short and long form. % Both short and long form.
_ -> _ ->
[$-, Short, $,, $\s, $-, $-, Long] [$-, Short, $,, $\s, $-, $- | Long]
end end
end, end,
usage_options_reverse(Tail, add_option_help(Prefix, Help, Acc)); usage_options_reverse(Tail, add_option_help(Prefix, Help, Acc));