Update getopt.erl

This commit is contained in:
Tuncer Ayaz 2012-04-16 18:02:48 +02:00
parent 0e7defaf64
commit aeb3081111

View file

@ -442,7 +442,7 @@ is_boolean_arg(Arg) ->
-spec is_integer_arg(string()) -> boolean(). -spec is_integer_arg(string()) -> boolean().
is_integer_arg([$- | Tail]) -> is_integer_arg("-" ++ Tail) ->
is_non_neg_integer_arg(Tail); is_non_neg_integer_arg(Tail);
is_integer_arg(Arg) -> is_integer_arg(Arg) ->
is_non_neg_integer_arg(Arg). is_non_neg_integer_arg(Arg).