File manager - Edit - /usr/local/share/perl5/LWP/Protocol/https/hosts.pm
Back
package LWP::Protocol::https::hosts; use strict; use warnings; use parent 'LWP::Protocol::https'; use LWP::UserAgent::DNS::Hosts; sub _extra_sock_opts { my ($self, $host, $port) = @_; my @opts = $self->SUPER::_extra_sock_opts($host, $port); if (my $peer_addr = LWP::UserAgent::DNS::Hosts->_registered_peer_addr($host)) { push @opts, ( PeerAddr => $peer_addr, Host => $host, SSL_verifycn_name => $host, SSL_hostname => $host, # for SNI ); } return @opts; } sub socket_class { 'LWP::Protocol::https::Socket' } 1; __END__
| ver. 1.4 |
Github
|
.
| PHP 8.2.30 | Generation time: 0.01 |
proxy
|
phpinfo
|
Settings