changeset 426:7cb6af00afdd

Tests: fixed SPDY tests with large header length. Previously it was truncated modulo 2^16.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 04 Jul 2014 12:37:13 +0400
parents cc7da696a330
children daea9cf92c14
files spdy.t
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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) {