From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 5 Mar 1999 06:41:16 +0000 (+0000)
Subject: adjust timeouts to accomodate slow/busy systems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=862b0ad80f938b2e49f631a6371fe16e441db8a6;p=p5sagit%2Fp5-mst-13.2.git

adjust timeouts to accomodate slow/busy systems

p4raw-id: //depot/perl@3087
---

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index edd327e..0e002be 100755
--- a/t/lib/io_sock.t
+++ b/t/lib/io_sock.t
@@ -28,7 +28,9 @@ use IO::Socket;
 
 $listen = IO::Socket::INET->new(Listen => 2,
 				Proto => 'tcp',
-				Timeout => 2,
+				# some systems seem to need as much as 10,
+				# so be generous with the timeout
+				Timeout => 15,
 			       ) or die "$!";
 
 print "ok 1\n";
@@ -87,7 +89,7 @@ if($pid = fork()) {
 
 # Test various other ways to create INET sockets that should
 # also work.
-$listen = IO::Socket::INET->new(Listen => '', Timeout => 2) or die "$!";
+$listen = IO::Socket::INET->new(Listen => '', Timeout => 15) or die "$!";
 $port = $listen->sockport;
 
 if($pid = fork()) {