X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FTLS.pm;h=86e6331d5ea2df97f7cd4c22ba9898f83b275cbd;hb=31f9b61a318f4daf8a6208ed4f6bc60aa355faa9;hp=1bbb229adbcd7f6cc8c60c076ea18b3a5a1d4978;hpb=55b707d788ce13696e4411389583e720ea6dab01;p=public-inbox.git diff --git a/lib/PublicInbox/TLS.pm b/lib/PublicInbox/TLS.pm index 1bbb229a..86e6331d 100644 --- a/lib/PublicInbox/TLS.pm +++ b/lib/PublicInbox/TLS.pm @@ -1,4 +1,4 @@ -# Copyright (C) 2019 all contributors +# Copyright (C) 2019-2020 all contributors # License: AGPL-3.0+ # IO::Socket::SSL support code @@ -6,6 +6,7 @@ package PublicInbox::TLS; use strict; use IO::Socket::SSL; use PublicInbox::Syscall qw(EPOLLIN EPOLLOUT); +use Carp qw(carp); sub err () { $SSL_ERROR } @@ -13,7 +14,8 @@ sub err () { $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"; + carp "unexpected SSL error: $SSL_ERROR"; + undef; } 1;