Re^2: Net::HTTP::Methods and LWP::UserAgent

Perfect, I ended up with:

#!/usr/bin/perl -w
package MyHTTP;
use base qw(LWP::Protocol::http);

sub _new_socket {
        my $self=shift;
        my $ret =$self->SUPER::_new_socket(@_);
        $ret->max_header_lines(1000);
        return $ret;
}
package MyHTTP::Socket;
use vars qw(@ISA);

@ISA = qw(LWP::Protocol::http::SocketMethods Net::HTTP);


package main;
LWP::Protocol::implementor( 'http', 'MyHTTP' );
use LWP::Simple qw( getprint );

getprint( shift || 'http://localhost/' );

exit 0;

__END__
[download]

Hopefully that's unobtrusive enough... Many thanks!

Comment on Re^2: Net::HTTP::Methods and LWP::UserAgent Download Code

Replies are listed 'Best First'.
Re^3: Net::HTTP::Methods and LWP::UserAgent by Anonymous Monk on Sep 26, 2008 at 21:12 UTC
or even `package MyHTTP::Socket; use vars qw(@ISA); @ISA = qw(LWP::Protocol::http::Socket);` [download]	[reply] [d/l]