Mercurial > hg > nginx-tests

comparison proxy_next_upstream_tries.t @ 775:a6764c2a9f12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fixed DNS label coding in resolver tests. No actual functional changes.
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 05 Nov 2015 14:02:53 +0300
parents ef1c363dd648
children b6b407fd5c12
comparison
equal deleted inserted replaced
774:adc32621fb09 775:a6764c2a9f12
218 my ($id, $type, $class) = unpack("n x$offset n2", $recv_data); 218 my ($id, $type, $class) = unpack("n x$offset n2", $recv_data);
219 219
220 @rdata = map { rd_addr($ttl, '127.0.0.1') } (1 .. 3) if $type == A; 220 @rdata = map { rd_addr($ttl, '127.0.0.1') } (1 .. 3) if $type == A;
221 221
222 $len = @name; 222 $len = @name;
223 pack("n6 (w/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, 223 pack("n6 (C/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata,
224 0, 0, @name, $type, $class) . join('', @rdata); 224 0, 0, @name, $type, $class) . join('', @rdata);
225 } 225 }
226 226
227 sub rd_addr { 227 sub rd_addr {
228 my ($ttl, $addr) = @_; 228 my ($ttl, $addr) = @_;