From 2d982bc31f58ba09783af3f89af47c36153de431 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Thu, 14 Mar 2019 14:16:07 +0100 Subject: Support OTP-21.3 --- src/ct_helper.erl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src') diff --git a/src/ct_helper.erl b/src/ct_helper.erl index 8a08a50..044d4f4 100644 --- a/src/ct_helper.erl +++ b/src/ct_helper.erl @@ -150,10 +150,17 @@ get_tls_state(TLSPid) -> {_, #state{connection_env=#connection_env{user_application={_, UserPid}}}} = sys:get_state(TLSPid), UserPid. -else. +%% This is defined in ssl_record.hrl starting from OTP-21.3. +-ifdef(KNOWN_RECORD_TYPE). +get_tls_state(TLSPid) -> + {_, #state{connection_env=#connection_env{user_application={_, UserPid}}}} = sys:get_state(TLSPid), + UserPid. +-else. get_tls_state(TLSPid) -> {_, #state{user_application={_, UserPid}}} = sys:get_state(TLSPid), UserPid. -endif. +-endif. -else. get_tls_state(TLSPid) -> {_, #state{user_application={_, UserPid}}} = sys:get_state(TLSPid), -- cgit v1.2.3