in reply to Re^3: Questions about LWP`
in thread Questions about LWP`

Thanks, but I ran tests with the option of assigning the port. Unfortunately it doesn't work for HTTPS. :-(
and, for some unknown reason it was problematic for multiple file collections through the same LWP object. Any other help? I have a fall back method, but it will slow my process down, greatly, or I have to go to a more complicated method, that I don't want to use. Thanks again for your help. Greatly appreciate the chatter. :-)

Replies are listed 'Best First'.
Re^5: Questions about LWP`
by Anonymous Monk on Dec 12, 2010 at 07:56 UTC
    Follow the trace :)
    Read more... (556 Bytes)
    So I would try overriding 
    *LWP::Protocol::http::Socket::connect =
  *LWP::Protocol::http10::Socket::connect =
  *LWP::Protocol::https::Socket::connect =
  *LWP::Protocol::https10::Socket::connect = sub {
    my $self = shift;
    my $sock = $self->SUPER::connect(@_);
## get port here
    return $sock;
  };

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom