clean-up and re-wrap some comments

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2025-07-15 10:58:35 +02:00
parent 0cf78af094
commit ed0cef79a8

View File

@ -2,9 +2,8 @@ package PVE::APIServer::AnyEvent;
# Note 1: interactions with Crypt::OpenSSL::RSA # Note 1: interactions with Crypt::OpenSSL::RSA
# #
# Some handlers (auth_handler) use Crypt::OpenSSL::RSA, which seems to # Some handlers (auth_handler) use Crypt::OpenSSL::RSA, which seems to set the openssl error
# set the openssl error variable. We need to clear that here, else # variable. We need to clear that here, else AnyEvent::TLS aborts the connection.
# AnyEvent::TLS aborts the connection.
# Net::SSLeay::ERR_clear_error(); # Net::SSLeay::ERR_clear_error();
use strict; use strict;
@ -238,10 +237,9 @@ sub response_stream {
return; return;
} }
# apply backpressure so we don't accept any more data into # apply backpressure so we don't accept any more data into buffer if the client isn't
# buffer if the client isn't downloading fast enough # downloading fast enough. Note: read_size can double upon read, and we also need to account
# note: read_size can double upon read, and we also need to # for one more read after# start_read, so multiply by 4
# account for one more read after start_read, so *4
if ($rbuf_len + $hdl->{read_size} * 4 > $buf_size) { if ($rbuf_len + $hdl->{read_size} * 4 > $buf_size) {
# stop reading until write buffer is empty # stop reading until write buffer is empty
$hdl->on_read(); $hdl->on_read();
@ -2111,8 +2109,7 @@ sub new {
if ($self->{ssl}) { if ($self->{ssl}) {
my $ssl_defaults = { my $ssl_defaults = {
# Note: older versions are considered insecure, for example # Note: always re older versions are considered insecure, for example "Poodle"-Attack
# search for "Poodle"-Attack
method => 'any', method => 'any',
sslv2 => 0, sslv2 => 0,
sslv3 => 0, sslv3 => 0,