JonM Wrote:
> Patching it manually would not be a problem. So if you would be so
> kind........
>
> :-)
OK, some caveats :)
This is untested (I'm at work) and my perl is extremely rusty - use at
your own risk! The fix also isn't as neat as I hoped as the problematic
bit is added in the CPAN HTTP library. Still, I hope this will work :)
Open up CPAN/Net/HTTP/Methods.pm and look for this chunk in the
http_configure subroutine:
Code:
--------------------
unless ($host =~ /:/) {
my $p = $self->peerport;
$host .= ":$p";
}
--------------------
Change it to:
Code:
--------------------
unless ($host =~ /:/) {
my $p = $self->peerport;
if ($p != $self->http_default_port) {
$host .= ":$p";
}
}
--------------------
And give it a whirl. There's a debug option you can switch on (I forget
the name - something like d_http or d_asynchttp) which will cause the
outgoing request to be logged - it should look like the one I posted
earlier but without the :80 on it.
Let me know how it works out ;)
--
radish
_______________________________________________
beta mailing list
[email protected]
http://lists.slimdevices.com/lists/listinfo/beta
