… | |
… | |
1736 | require Net::SSLeay; |
1736 | require Net::SSLeay; |
1737 | |
1737 | |
1738 | $ERROR_SYSCALL = Net::SSLeay::ERROR_SYSCALL (); |
1738 | $ERROR_SYSCALL = Net::SSLeay::ERROR_SYSCALL (); |
1739 | $ERROR_WANT_READ = Net::SSLeay::ERROR_WANT_READ (); |
1739 | $ERROR_WANT_READ = Net::SSLeay::ERROR_WANT_READ (); |
1740 | |
1740 | |
1741 | $tls = $self->{tls}; |
1741 | $tls = delete $self->{tls}; |
1742 | $ctx = $self->{tls_ctx}; |
1742 | $ctx = $self->{tls_ctx}; |
1743 | |
1743 | |
1744 | local $Carp::CarpLevel = 1; # skip ourselves when creating a new context or session |
1744 | local $Carp::CarpLevel = 1; # skip ourselves when creating a new context or session |
1745 | |
1745 | |
1746 | if ("HASH" eq ref $ctx) { |
1746 | if ("HASH" eq ref $ctx) { |