12 lines
454 B
Plaintext
12 lines
454 B
Plaintext
$OpenBSD: patch-t_UDP_test_t,v 1.1 2002/07/23 18:09:10 avsm Exp $
|
|
--- t/UDP_test.t.orig Tue Jul 23 19:06:43 2002
|
|
+++ t/UDP_test.t Tue Jul 23 19:06:58 2002
|
|
@@ -61,6 +61,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;
|