$OpenBSD: patch-t_Server_PreFork_t,v 1.1 2002/07/23 18:09:10 avsm Exp $
--- t/Server_PreFork.t.orig	Tue Jul 23 19:04:42 2002
+++ t/Server_PreFork.t	Tue Jul 23 19:04:58 2002
@@ -65,6 +65,7 @@ my @ports      = ();
 for my $i (0..99){
   my $sock = IO::Socket::INET->new(PeerAddr => 'localhost',
 				   PeerPort => ($start_port + $i),
+				   Timeout  => 2,
 				   Proto    => 'tcp');
   push @ports, ($start_port + $i) if ! defined $sock;
   last if $num_ports == @ports;