12 lines
472 B
Plaintext
12 lines
472 B
Plaintext
$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;
|