tls: shorten warning $SSL_ERROR prefix

Use our usual `W:' warning prefix here since the stringified
form of the $SSL_ERROR magic variable will be something like:
"SSL read error error:xxx:SSL routines:SSL_shutdown:shutdown while in init"
and we don't need to be mentioning `SSL' ourselves.

diff --git a/lib/PublicInbox/TLS.pm b/lib/PublicInbox/TLS.pm
index 9a829deff062a3953e04ac68231438e63b246149..259123060c177d3792ffb477693dc9a606c666c6 100644 (file)
--- a/lib/PublicInbox/TLS.pm
+++ b/lib/PublicInbox/TLS.pm
@@ -14,7 +14,7 @@ sub err () { $SSL_ERROR }
 sub epollbit () {
        return EPOLLIN if $SSL_ERROR == SSL_WANT_READ;
        return EPOLLOUT if $SSL_ERROR == SSL_WANT_WRITE;
-       carp "unexpected SSL error: $SSL_ERROR";
+       carp "W: $SSL_ERROR";
        undef;
 }