Mercurial > hg > nginx-tests

comparison http_resolver_cname.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 6bb1f2ccd386
children e9064d691790
comparison
equal deleted inserted replaced
936:e81cacf44cac 937:b1fa8e0cc27b
162 use constant NOERROR => 0; 162 use constant NOERROR => 0;
163 163
164 use constant A => 1; 164 use constant A => 1;
165 use constant CNAME => 5; 165 use constant CNAME => 5;
166 166
167 use constant IN => 1; 167 use constant IN => 1;
168 168
169 # default values 169 # default values
170 170
171 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); 171 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600);
172 172
259 sub dns_daemon { 259 sub dns_daemon {
260 my ($port, $t) = @_; 260 my ($port, $t) = @_;
261 261
262 my ($data, $recv_data); 262 my ($data, $recv_data);
263 my $socket = IO::Socket::INET->new( 263 my $socket = IO::Socket::INET->new(
264 LocalAddr => '127.0.0.1', 264 LocalAddr => '127.0.0.1',
265 LocalPort => $port, 265 LocalPort => $port,
266 Proto => 'udp', 266 Proto => 'udp',
267 ) 267 )
268 or die "Can't create listening socket: $!\n"; 268 or die "Can't create listening socket: $!\n";
269 269
270 # signal we are ready 270 # signal we are ready
271 271