Mercurial > hg > nginx-tests
comparison spdy.t @ 486:c2c1eb6d7a76
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 } |