Mercurial > hg > nginx-tests

comparison spdy.t @ 486:c2c1eb6d7a76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: worked around a bug in perl unpack. Zero pad manually up to the specified header value length.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 28 Oct 2014 20:56:20 +0300
parents 00275fa9091c
children c5ff54b56710
comparison
equal deleted inserted replaced
485:cbfe90b632e8 486:c2c1eb6d7a76
933 my $len = unpack("\@$skip N", $data); $skip += 4; 933 my $len = unpack("\@$skip N", $data); $skip += 4;
934 my $name = unpack("\@$skip A$len", $data); $skip += $len; 934 my $name = unpack("\@$skip A$len", $data); $skip += $len;
935 935
936 $len = unpack("\@$skip N", $data); $skip += 4; 936 $len = unpack("\@$skip N", $data); $skip += 4;
937 my $value = unpack("\@$skip A$len", $data); $skip += $len; 937 my $value = unpack("\@$skip A$len", $data); $skip += $len;
938 $value .= "\0" x ($len - length $value);
938 939
939 $headers{$name} = $value; 940 $headers{$name} = $value;
940 } 941 }
941 return \%headers; 942 return \%headers;
942 } 943 }