add test for rt #81948

Author: xdg

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 => "# ");