Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner AT sources DOT redhat DOT com Delivered-To: mailing list cygwin AT sources DOT redhat DOT com X-Authentication-Warning: ginger.cc.utexas.edu: grouse owned process doing -bs Date: Tue, 14 Aug 2001 13:59:25 -0500 (CDT) From: Michael Hoffman To: Cygwin , LWP Subject: Cygwin Perl LWP timeout workaround Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII 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 Cold Spring Harbor Laboratory -- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Bug reporting: http://cygwin.com/bugs.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/