comparison lib/Test/Nginx.pm @ 956:3bc5b72e4377

Tests: fixed exclusive port numbering. To ensure port uniqueness, listen option was added for generated TCP sockets.
author Andrey Zelenkov <zelenkov@nginx.com>
date Wed, 22 Jun 2016 19:46:36 +0300
parents 9361c7eddfc1
children 0641f83d5721
comparison
equal deleted inserted replaced
955:b8948aecba12 956:3bc5b72e4377
321 321
322 $s_tcp = IO::Socket::INET->new( 322 $s_tcp = IO::Socket::INET->new(
323 Proto => 'tcp', 323 Proto => 'tcp',
324 LocalAddr => '127.0.0.1:' . $port, 324 LocalAddr => '127.0.0.1:' . $port,
325 Reuse => 1, 325 Reuse => 1,
326 Listen => 1,
326 ) and last; 327 ) and last;
327 } 328 }
328 329
329 die "Port limit exceeded" unless defined $s_tcp and defined $s_udp; 330 die "Port limit exceeded" unless defined $s_tcp and defined $s_udp;
330 331