# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1414518980 -10800
# Node ID c2c1eb6d7a76963771ad4ccf68b6ea344c4c9b80
# Parent  cbfe90b632e848af3297d7fe648154d07a94f2dc
Tests: worked around a bug in perl unpack.

Zero pad manually up to the specified header value length.

diff --git a/spdy.t b/spdy.t
--- 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;
 	}