Skip to content

Instantly share code, notes, and snippets.

@kazeburo
Created January 23, 2013 08:02
Show Gist options
  • Select an option

  • Save kazeburo/4602984 to your computer and use it in GitHub Desktop.

Select an option

Save kazeburo/4602984 to your computer and use it in GitHub Desktop.
diff --git a/lib/Furl/HTTP.pm b/lib/Furl/HTTP.pm
index 176786d..eec57ef 100644
--- a/lib/Furl/HTTP.pm
+++ b/lib/Furl/HTTP.pm
@@ -568,10 +568,11 @@ sub connect :method {
sub _ssl_opts {
my $self = shift;
my $ssl_opts = $self->{ssl_opts};
- unless (exists $ssl_opts->{SSL_verify_mode} && exists $ssl_opts->{SSL_verifycn_scheme}) {
+ if (!exists $ssl_opts->{SSL_verify_mode} ) {
# set SSL_VERIFY_PEER as default.
$ssl_opts->{SSL_verify_mode} = IO::Socket::SSL::SSL_VERIFY_PEER();
$ssl_opts->{SSL_verifycn_scheme} = 'www'
+ if ! exists $ssl_opts->{SSL_verifycn_scheme};
}
if ($ssl_opts->{SSL_verify_mode}) {
unless (exists $ssl_opts->{SSL_ca_file} || exists $ssl_opts->{SSL_ca_path}) {
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment