Mercurial > hg > nginx-tests
comparison mail_resolver.t @ 937:b1fa8e0cc27b
Tests: whitespaces fix.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Tue, 24 May 2016 16:09:57 +0300 |
parents | 0654d7315b52 |
children | e9064d691790 |
comparison
equal
deleted
inserted
replaced
936:e81cacf44cac | 937:b1fa8e0cc27b |
---|---|
278 use constant NXDOMAIN => 3; | 278 use constant NXDOMAIN => 3; |
279 | 279 |
280 use constant A => 1; | 280 use constant A => 1; |
281 use constant CNAME => 5; | 281 use constant CNAME => 5; |
282 use constant PTR => 12; | 282 use constant PTR => 12; |
283 use constant DNAME => 39; | 283 use constant DNAME => 39; |
284 | 284 |
285 use constant IN => 1; | 285 use constant IN => 1; |
286 | 286 |
287 # default values | 287 # default values |
288 | 288 |
289 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); | 289 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); |
290 | 290 |
376 sub dns_daemon { | 376 sub dns_daemon { |
377 my ($port, $t) = @_; | 377 my ($port, $t) = @_; |
378 | 378 |
379 my ($data, $recv_data); | 379 my ($data, $recv_data); |
380 my $socket = IO::Socket::INET->new( | 380 my $socket = IO::Socket::INET->new( |
381 LocalAddr => '127.0.0.1', | 381 LocalAddr => '127.0.0.1', |
382 LocalPort => $port, | 382 LocalPort => $port, |
383 Proto => 'udp', | 383 Proto => 'udp', |
384 ) | 384 ) |
385 or die "Can't create listening socket: $!\n"; | 385 or die "Can't create listening socket: $!\n"; |
386 | 386 |
387 # signal we are ready | 387 # signal we are ready |
388 | 388 |