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

Fixed security issues in VersionCheck and HTTP::Micro

Browse Source
This commit is contained in:
Frank Cizmich
2015-01-16 16:49:30 -02:00
parent 732a3fa9cc
commit c3462b6c68
20 changed files with 194 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/HTTP/Micro.pm
View File

@@ -237,7 +237,8 @@ sub _split_url {
ref($self->{fh}) eq 'IO::Socket::SSL'
or die(qq/SSL connection failed for $host\n/);
if ( $self->{fh}->can("verify_hostname") ) {
$self->{fh}->verify_hostname( $host, $ssl_verify_args );
$self->{fh}->verify_hostname( $host, $ssl_verify_args )
or die(qq/SSL certificate not valid for $host\n/);
}
else {
# Can't use $self->{fh}->verify_hostname because the IO::Socket::SSL