Avoid calling $self->peerport to figure out what the port is.
commitb9f98ab2fe190542c5057888d02ad7caaa8a0cb8
authorGisle Aas <gisle@aas.no>
Tue, 15 Apr 2008 08:18:21 +0000 (15 10:18 +0200)
committerGisle Aas <gisle@aas.no>
Tue, 15 Apr 2008 08:18:21 +0000 (15 10:18 +0200)
tree7fbf5d14b78f9227db1306626f96113f26a269ba
parente1012fb3061166583e24a72c4a5ca43e7323a40e
Avoid calling $self->peerport to figure out what the port is.

Only reason we did that was that IO::Socket::INET would extract
the port from the PeerAddr option.  A change is behaviour is
that we used to allow symbolic port names, but I really don't
think those were actually used.

This makes it easier to subclass Net::HTTP::Methods.
lib/Net/HTTP/Methods.pm
t/base/http.t