diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-11-26 00:56:59 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-11-26 20:48:00 +1200 |
| commit | 93be69de7b7f75290f584f5b2d24cdcf0dd72c74 (patch) | |
| tree | 5090360ee58d6365ef5ce0f4a3f354e3e97abb4c /t | |
| parent | 0c160758284dfc4a4cd244aaba0bc284f6220eb4 (diff) | |
| download | perl-93be69de7b7f75290f584f5b2d24cdcf0dd72c74.tar.gz | |
Socket test improvement from Ilya.
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/io_sock.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t index 53690b117c..156f6cb78f 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(); |