Chris Song wrote:
>
> If you run tail -f access.log you'll see that the server received HTTP/1.0,
> not HTTP/1.1. I traced to code to the request() routine in
> LWP/Protocol/http.pm,
> line 112:
> my $request_line = "$method $fullpath HTTP/1.0$CRLF";
> The string is harded-coded there. I'm using ActiveState Perl 620, the
> $LWP::VERSION
> is 5.48.
I forgot I modified that module a while back. This is what I used:
my $protocol = 'HTTP/1.0';
$protocol = $request->{_protocol} if exists $request->{_protocol};
my $request_line = "$method $fullpath $protocol$CRLF";
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles http://www.wgn.net/~dbe/
/ ) /--< o // // Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
-/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
