diff options
| author | Badlop <badlop@process-one.net> | 2011-05-30 17:11:32 +0200 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2011-05-30 17:11:32 +0200 |
| commit | d4d28e038b4d72c66c02a20d2098f4f3542937d5 (patch) | |
| tree | 8af4c9d9168398da22692b8ca1d33c6d573d815a | |
| parent | Under some circumstances the "uri" variable in StartNamespaceDeclHandler coul... (diff) | |
Cut the string when calling halt/1
| -rw-r--r-- | src/ejabberd_config.erl | 2 | ||||
| -rw-r--r-- | src/gen_mod.erl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl index 1609b447d..5f756be65 100644 --- a/src/ejabberd_config.erl +++ b/src/ejabberd_config.erl @@ -215,7 +215,7 @@ exit_or_halt(ExitText) -> case [Vsn || {ejabberd, _Desc, Vsn} <- application:which_applications()] of [] -> timer:sleep(1000), - halt(ExitText); + halt(string:substr(ExitText, 1, 199)); [_] -> exit(ExitText) end. diff --git a/src/gen_mod.erl b/src/gen_mod.erl index 397cbc35a..0f577d31a 100644 --- a/src/gen_mod.erl +++ b/src/gen_mod.erl @@ -79,7 +79,7 @@ start_module(Host, Module, Opts) -> false -> ?CRITICAL_MSG("ejabberd initialization was aborted because a module start failed.", []), timer:sleep(3000), - erlang:halt(lists:flatten(ErrorText)) + erlang:halt(string:substr(lists:flatten(ErrorText), 1, 199)) end end. |