diff options
| author | Badlop <badlop@process-one.net> | 2013-06-14 16:18:22 +0200 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2013-06-14 16:18:22 +0200 |
| commit | 243d24015c1cbb2da712b8f542f3c577660b7983 (patch) | |
| tree | c5b80ffdf26b689c788f45a95a3d13aca333c065 | |
| parent | In frontends, if result is in binary then convert to string (diff) | |
Remove old obsolete R14 code
| -rw-r--r-- | src/ejabberd_ctl.erl | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl index 78d8b0624..a9a6f6725 100644 --- a/src/ejabberd_ctl.erl +++ b/src/ejabberd_ctl.erl @@ -294,18 +294,7 @@ call_command([CmdString | Args], Auth, AccessCommands) -> Result = ejabberd_commands:execute_command(AccessCommands, Auth, Command, ArgsFormatted), format_result(Result, ResultFormat); - %% This case clause is for Erlang R14 and older - {'EXIT', {function_clause,[{lists,zip,[A1, A2]} | _]}} -> - {NumCompa, TextCompa} = - case {length(A1), length(A2)} of - {L1, L2} when L1 < L2 -> {L2-L1, "less argument"}; - {L1, L2} when L1 > L2 -> {L1-L2, "more argument"} - end, - {io_lib:format("Error: the command ~p requires ~p ~s.", - [CmdString, NumCompa, TextCompa]), - wrong_command_arguments}; - %% This case clause is for Erlang R15 and newer - {'EXIT', {function_clause,[{lists,zip,[A1, A2],_} | _]}} -> + {'EXIT', {function_clause,[{lists,zip,[A1, A2], _} | _]}} -> {NumCompa, TextCompa} = case {length(A1), length(A2)} of {L1, L2} when L1 < L2 -> {L2-L1, "less argument"}; |