Mercurial > hg > nginx-tests
comparison http_resolver_cname.t @ 937:b1fa8e0cc27b
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 |