Mercurial > hg > nginx-tests

comparison proxy_next_upstream_tries.t @ 937:b1fa8e0cc27b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespaces fix.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 24 May 2016 16:09:57 +0300
parents b6b407fd5c12
children e9064d691790
comparison
equal deleted inserted replaced
936:e81cacf44cac 937:b1fa8e0cc27b
193 193
194 my (@name, @rdata); 194 my (@name, @rdata);
195 195
196 use constant NOERROR => 0; 196 use constant NOERROR => 0;
197 use constant A => 1; 197 use constant A => 1;
198 use constant IN => 1; 198 use constant IN => 1;
199 199
200 # default values 200 # default values
201 201
202 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); 202 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600);
203 203
235 sub dns_daemon { 235 sub dns_daemon {
236 my ($port, $t) = @_; 236 my ($port, $t) = @_;
237 237
238 my ($data, $recv_data); 238 my ($data, $recv_data);
239 my $socket = IO::Socket::INET->new( 239 my $socket = IO::Socket::INET->new(
240 LocalAddr => '127.0.0.1', 240 LocalAddr => '127.0.0.1',
241 LocalPort => $port, 241 LocalPort => $port,
242 Proto => 'udp', 242 Proto => 'udp',
243 ) 243 )
244 or die "Can't create listening socket: $!\n"; 244 or die "Can't create listening socket: $!\n";
245 245
246 # signal we are ready 246 # signal we are ready
247 247