develooper Front page | perl.libwww | Postings from August 2001

Cygwin Perl LWP timeout workaround

Thread Next
From:
Michael Hoffman
Date:
August 14, 2001 21:26
Subject:
Cygwin Perl LWP timeout workaround
Message ID:
Pine.A41.4.21.0108141329350.26132-100000@ginger.cc.utexas.edu
I seem to get intermittent socket timeout problems with perl's LWP
(libwww-perl). I unfortunately cannot reproduce the problem reliably,
so debugging it is almost impossible. Even if I supply a large timeout
value (300 s), LWP sometimes returns a timeout immediately.

In /usr/lib/perl5/5.6.1/cygwin/IO/Socket.pm, the connect subroutine
sets $sock->blocking(0) if there is a timeout value. (Shouldn't a
timeout value turn blocking on?)

I'd work on this more, but I unfortunately can't 

One workaround is to change
/usr/lib/perl5/site_perl/5.6.1/LWP/Protocol/http.pm to stop passing
Timeout values. I got the idea from an earlier post on the cygwin
mailing list regarding Net::SMTP and Net::POP3:

http://sources.redhat.com/ml/cygwin/2001-05/msg00411.html

My cygcheck and perl -V are at the bottom of this message:

http://sources.redhat.com/ml/cygwin/2001-08/msg00028.html

And here's a one-character patch:

--- http.pm.bak Tue Aug 14 14:25:44 2001
+++ http.pm     Tue Aug 14 14:37:58 2001
@@ -28,7 +28,7 @@
     my $sock = IO::Socket::INET->new(PeerAddr => $host,
                                     PeerPort => $port,
                                     Proto    => 'tcp',
-                                    Timeout  => $timeout,
+#                                   Timeout  => $timeout,
                                     $self->_extra_sock_opts($host,
				     $port),
                                    );
     unless ($sock) {
--
Michael Hoffman <hoffmanm@cshl.org>
Cold Spring Harbor Laboratory




Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About