Merge pull request libwww-perl#4 from dagolden/topic/fix-ssl-verify-mode-warnings

Fix IO::Socket::SSL warnings when not verifying hostname

Author: karenetheridge

lib/LWP/Protocol/https.pm

@@ -19,6 +19,9 @@ sub _extra_sock_opts
 	$ssl_opts{SSL_verify_mode} ||= 1;
 	$ssl_opts{SSL_verifycn_scheme} = 'www';
     }
+    else {
+	$ssl_opts{SSL_verify_mode} = 0;
+    }
     if ($ssl_opts{SSL_verify_mode}) {
 	unless (exists $ssl_opts{SSL_ca_file} || exists $ssl_opts{SSL_ca_path}) {
 	    eval {

t/apache.t

@@ -8,10 +8,19 @@ use LWP::UserAgent;
 my $ua = LWP::UserAgent->new();
 plan skip_all => "Not online" unless $ua->is_online;
 
-plan tests => 2;
+plan tests => 4;
+
 my $res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
 
 ok($res->is_success);
 like($res->content, qr/Apache Software Foundation/);
 
+# test for RT #81948
+my $warn = '';
+$SIG{__WARN__} = sub { $warn = shift };
+$ua = LWP::UserAgent->new( ssl_opts => {verify_hostname => 0} );
+$res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
+ok($res->is_success);
+is($warn, '', "no warning seen");
+
 $res->dump(prefix => "# ");