package Gtk::LWP::http;
require LWP::Protocol::http;

@ISA = qw(LWP::Protocol::http);

sub _new_socket {
	my ($self, $host, $port, $timeout) = @_;
	my $sock = $self->SUPER::_new_socket($host, $port, $timeout);
	bless $sock, "Gtk::io::INET";
}

sub request {
    my($self, $request, $proxy, $arg, $size, $timeout) = @_;
    $timeout = 0; # so that Select isn't called
    $self->SUPER::request($request, $proxy, $arg, $size, $timeout);
}

1;