use two-argument bless

else we'd break "inheriting" (or whatever perl does is called) to
child modules

> Never use the one-argument form of bless.
-- Perl Best Practices, Pg. 365

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2020-11-30 15:03:30 +01:00
parent 935bbf68ba
commit 38fbee3cdd

View File

@ -317,7 +317,7 @@ sub new {
register_fingerprint_cb => $param{register_fingerprint_cb},
timeout => $param{timeout} || 60,
};
bless $self;
bless $self, $class;
if (!$ssl_opts->{SSL_verify_callback}) {
$ssl_opts->{'SSL_verify_mode'} = SSL_VERIFY_PEER;