# Copyright (C) 2019-2020 all contributors # License: AGPL-3.0+ # IO::Socket::SSL support code package PublicInbox::TLS; use strict; use IO::Socket::SSL; use PublicInbox::Syscall qw(EPOLLIN EPOLLOUT); sub err () { $SSL_ERROR } # returns the EPOLL event bit which matches the existing SSL error sub epollbit () { return EPOLLIN if $SSL_ERROR == SSL_WANT_READ; return EPOLLOUT if $SSL_ERROR == SSL_WANT_WRITE; die "unexpected SSL error: $SSL_ERROR"; } 1;