This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add sleep() to avoid race on NeXT (from M.E. O'Neill
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 05:37:29 +0000 (05:37 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 05:37:29 +0000 (05:37 +0000)
<oneill@cs.sfu.ca>)

p4raw-id: //depot/perl@5722

t/lib/io_sock.t

index e03e223..056d131 100755 (executable)
@@ -148,7 +148,7 @@ if($pid = fork()) {
     }
 
     # some machines seem to suffer from a race condition here
-#    sleep(1);
+    sleep(1);
 
     $sock = IO::Socket->new(Domain => AF_INET,
                             PeerAddr => "localhost:$port");