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
[perl5.git] / 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");