Mercurial > hg > nginx-tests

changeset 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 cbfe90b632e8
children c5ff54b56710
files spdy.t
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/spdy.t
+++ b/spdy.t
@@ -935,6 +935,7 @@ sub hunpack {
 
 		$len = unpack("\@$skip N", $data); $skip += 4;
 		my $value = unpack("\@$skip A$len", $data); $skip += $len;
+		$value .= "\0" x ($len - length $value);
 
 		$headers{$name} = $value;
 	}