// SYSTEM PANEL //
[ROOT]
/
usr
/
local
/
share
/
perl5
/
LWP
/
Protocol
/
http
[ PARENT ]
EDIT :: hosts.pm
package LWP::Protocol::http::hosts; use strict; use warnings; use parent 'LWP::Protocol::http'; 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); } return @opts; } sub socket_class { 'LWP::Protocol::http::Socket' } 1; __END__
SAVE
CANCEL