diff options
author | Hans Bolinder <[email protected]> | 2018-02-05 12:36:08 +0100 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2018-02-06 14:40:54 +0100 |
commit | 121681f93bec0f92a965059055f3492fc119548c (patch) | |
tree | 1215d0f9a2674f82b4cd1147cf9a9e7ffd57954e | |
parent | ae1066b9e749b3bcfd5ed98ab58970674ed310c5 (diff) | |
download | otp-121681f93bec0f92a965059055f3492fc119548c.tar.gz otp-121681f93bec0f92a965059055f3492fc119548c.tar.bz2 otp-121681f93bec0f92a965059055f3492fc119548c.zip |
sasl: Do not call erlang:get_stacktrace()
-rw-r--r-- | lib/sasl/test/release_handler_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/sasl/test/release_handler_SUITE.erl b/lib/sasl/test/release_handler_SUITE.erl index 824820c214..edd2efdf05 100644 --- a/lib/sasl/test/release_handler_SUITE.erl +++ b/lib/sasl/test/release_handler_SUITE.erl @@ -2580,15 +2580,15 @@ check_gg_info(Node,OtherAlive,OtherDead,Synced,N) -> GGI = rpc:call(Node, global_group, info, []), GI = rpc:call(Node, global, info,[]), try do_check_gg_info(OtherAlive,OtherDead,Synced,GGI,GI) - catch _:E when N==0 -> + catch _:E:Stacktrace when N==0 -> ?t:format("~nERROR: check_gg_info failed for ~p:~n~p~n" "when GGI was: ~p~nand GI was: ~p~n", - [Node,{E,erlang:get_stacktrace()},GGI,GI]), + [Node,{E,Stacktrace},GGI,GI]), ?t:fail("check_gg_info failed"); - _:E -> + _:E:Stacktrace -> ?t:format("~nWARNING: check_gg_info failed for ~p:~n~p~n" "when GGI was: ~p~nand GI was: ~p~n", - [Node,{E,erlang:get_stacktrace()},GGI,GI]), + [Node,{E,Stacktrace},GGI,GI]), timer:sleep(1000), check_gg_info(Node,OtherAlive,OtherDead,Synced,N-1) end. |