percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-14 23:40:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added SSL_verifycn_name flag to start_SSL in HTTP::Micro to resolve t/lib/HTTP/Micro.t test failure on bookworm

Browse Source
This commit is contained in:
Sveta Smirnova
2024-05-24 16:57:00 +03:00
parent acc0d495d2
commit 31124b1b1e
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/HTTP/Micro.pm
View File

@@ -233,7 +233,10 @@ sub _split_url {
or croak(qq/Could not binmode() socket: '$!'/); or croak(qq/Could not binmode() socket: '$!'/);
if ( $scheme eq 'https') { if ( $scheme eq 'https') {
IO::Socket::SSL->start_SSL($self->{fh}); IO::Socket::SSL->start_SSL(
$self->{fh},
SSL_verifycn_name => $host,
);
ref($self->{fh}) eq 'IO::Socket::SSL' ref($self->{fh}) eq 'IO::Socket::SSL'
or die(qq/SSL connection failed for $host\n/); or die(qq/SSL connection failed for $host\n/);
if ( $self->{fh}->can("verify_hostname") ) { if ( $self->{fh}->can("verify_hostname") ) {