aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2017-05-15 14:21:12 +0200
committerHans Bolinder <[email protected]>2017-05-18 15:29:24 +0200
commita0659634674df165482487495f8d10c3d755c60c (patch)
treeede73fb9ff9bcc6e8b59a20e9fa09050bc9b27af /lib/stdlib
parentf97921c7ea300ddfce3c37735a6373bd85e55da1 (diff)
downloadotp-a0659634674df165482487495f8d10c3d755c60c.tar.gz
otp-a0659634674df165482487495f8d10c3d755c60c.tar.bz2
otp-a0659634674df165482487495f8d10c3d755c60c.zip
stdlib: Limit the size of gen_server's error events
The state of the gen_server is limited in error events before exiting (if the Kernel variable error_logger_format_depth is set). An alternative is to let the error_logger limit all messages (error_msg, format, warning_msg, info_msg), which would not limit reports and also add a smallish overhead to event logging. It is not decided if the alternative is to be implemented.
Diffstat (limited to 'lib/stdlib')
-rw-r--r--lib/stdlib/src/gen_server.erl13
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/stdlib/src/gen_server.erl b/lib/stdlib/src/gen_server.erl
index ba0a7ae8e5..460ea0ed16 100644
--- a/lib/stdlib/src/gen_server.erl
+++ b/lib/stdlib/src/gen_server.erl
@@ -107,8 +107,6 @@
%% Internal exports
-export([init_it/6]).
--import(error_logger, [format/2]).
-
%%%=========================================================================
%%% API
%%%=========================================================================
@@ -864,11 +862,12 @@ error_info(Reason, Name, From, Msg, State, Debug) ->
Reason
end,
{ClientFmt, ClientArgs} = client_stacktrace(From),
- format("** Generic server ~p terminating \n"
- "** Last message in was ~p~n"
- "** When Server state == ~p~n"
- "** Reason for termination == ~n** ~p~n" ++ ClientFmt,
- [Name, Msg, State, Reason1] ++ ClientArgs),
+ LimitedState = error_logger:limit_term(State),
+ error_logger:format("** Generic server ~p terminating \n"
+ "** Last message in was ~p~n"
+ "** When Server state == ~p~n"
+ "** Reason for termination == ~n** ~p~n" ++ ClientFmt,
+ [Name, Msg, LimitedState, Reason1] ++ ClientArgs),
sys:print_log(Debug),
ok.
client_stacktrace(undefined) ->