From: Chip Salzenberg <chip@atlantic.net>
Date: Mon, 25 Nov 1996 12:56:59 +0000 (+1200)
Subject: Socket test improvement from Ilya.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93be69de7b7f75290f584f5b2d24cdcf0dd72c74;p=p5sagit%2Fp5-mst-13.2.git

Socket test improvement from Ilya.
---

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index 53690b1..156f6cb 100755
--- a/t/lib/io_sock.t
+++ b/t/lib/io_sock.t
@@ -17,7 +17,9 @@ print "1..5\n";
 
 use IO::Socket;
 
-$port = 4002 + int(rand(time) & 0xff);
+srand(time);
+$port = 4002 + int(rand 0xff);
+print "# using port $port.\n";
 $SIG{ALRM} = sub {};
 
 $pid =  fork();