Mercurial > hg > nginx-tests

comparison mail_resolver.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 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