# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1404463033 -14400
# Node ID 7cb6af00afdd22c11c0d0a622cbe6ce260095645
# Parent  cc7da696a330ef8e875454852d4b126fb1655d6e
Tests: fixed SPDY tests with large header length.

Previously it was truncated modulo 2^16.

diff --git a/spdy.t b/spdy.t
--- a/spdy.t
+++ b/spdy.t
@@ -707,9 +707,9 @@ sub spdy_stream {
 	$status == Compress::Raw::Zlib->Z_OK or fail "flush failed";
 	$output = $start . $tail;
 
-	my $len = '';
-	vec($len, 7, 8) = (length $output) + 10;
-	$buf |= $len;
+	# set length, attach headers and optional body
+
+	$buf |= pack "x4N", length($output) + 10;
 	$buf .= $output;
 
 	if (defined $body) {