From 31124b1b1e938e2c7e24904f741618681b73e301 Mon Sep 17 00:00:00 2001
From: Sveta Smirnova <sveta.smirnova@percona.com>
Date: Fri, 24 May 2024 16:57:00 +0300
Subject: [PATCH] Added SSL_verifycn_name flag to start_SSL in HTTP::Micro to
 resolve t/lib/HTTP/Micro.t test failure on bookworm

---
 lib/HTTP/Micro.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/HTTP/Micro.pm b/lib/HTTP/Micro.pm
index 59716b39..16200c7d 100644
--- a/lib/HTTP/Micro.pm
+++ b/lib/HTTP/Micro.pm
@@ -233,7 +233,10 @@ sub _split_url {
          or croak(qq/Could not binmode() socket: '$!'/);
 
        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'
                or die(qq/SSL connection failed for $host\n/);
            if ( $self->{fh}->can("verify_hostname") ) {