File: http.pm

package info (click to toggle)
libgtk-perl 0.7009-12
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,956 kB
  • ctags: 2,260
  • sloc: perl: 13,998; xml: 9,919; ansic: 2,894; makefile: 64; cpp: 45
file content (19 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
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;