adjust timeouts to accomodate slow/busy systems

p4raw-id: //depot/perl@3087

1 files changed, 4 insertions, 2 deletions

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index edd327e70c..0e002be339 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()) {