diff options
| author | Ingela Anderton Andin <[email protected]> | 2011-10-27 16:26:29 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2011-11-15 12:09:37 +0100 |
| commit | a6e27f130151617926077c34789a4cd159076da0 (patch) | |
| tree | cd70cf8ad05bb87bc85b3981851d5a395a563ef3 /lib/ssl/test/ssl_basic_SUITE.erl | |
| parent | 2851ac4e11375e7870a9d7be23a307aff31f270b (diff) | |
| download | otp-a6e27f130151617926077c34789a4cd159076da0.tar.gz otp-a6e27f130151617926077c34789a4cd159076da0.tar.bz2 otp-a6e27f130151617926077c34789a4cd159076da0.zip | |
Adjustment to work with hipe
process_info(Pid, current_function) may return {current_function, undefined}
in some cases but will not in the importante one!
Diffstat (limited to 'lib/ssl/test/ssl_basic_SUITE.erl')
| -rw-r--r-- | lib/ssl/test/ssl_basic_SUITE.erl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index 3c79ede111..d9cb8002ed 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -2592,7 +2592,7 @@ client_renegotiate(Config) when is_list(Config) -> {options, ServerOpts}]), Port = ssl_test_lib:inet_port(Server), - Client = ssl_test_lib:start_client([{node, ClientNode}, {port, Port}, + Client = ssl_test_lib:start_client([{node, ClientNode}, {port, Port}, {host, Hostname}, {from, self()}, {mfa, {?MODULE, @@ -3589,14 +3589,13 @@ hibernate(Config) -> {from, self()}, {mfa, {?MODULE, send_recv_result_active, []}}, {options, [{hibernate_after, 1000}|ClientOpts]}]), - - { current_function, { _M, _F, _A } } = + {current_function, _} = process_info(Pid, current_function), timer:sleep(1100), - { current_function, { erlang, hibernate, 3} } = - process_info(Pid, current_function), + {current_function, {erlang, hibernate, 3}} = + process_info(Pid, current_function), ssl_test_lib:close(Server), ssl_test_lib:close(Client). |