Skip Menu |
 

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 12406
Status: resolved
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: tim [...] q2u.nl
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)



Subject: Net::HTTP::Methods: Host header problems
Download (untitled) / with headers
text/plain 202b
Net::HTTP::Methods # $Id: Methods.pm,v 1.15 2004/11/12 10:42:36 gisle Exp $ Some webserver configuration's don't understand the port number in the "Host:" header if it is the default port number(80).
Download patch.diff
text/x-diff 404b
--- Methods.pm Mon Apr 25 16:06:20 2005 +++ Methods.pm.org Mon Apr 25 16:13:36 2005 @@ -47,9 +47,9 @@ return undef unless $self->http_connect($cnf); - unless ($host =~ /:/ || $self->peerport == $self->http_default_port) { - my $p = $self->peerport; - $host .= ":$p"; + unless ($host =~ /:/) { + my $p = $self->peerport; + $host .= ":$p"; } $self->host($host);


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.