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") ) {