Mercurial > hg > nginx-tests
comparison spdy.t @ 379:f42de3a9fd74
Tests: avoid uninitialized warnings in spdy.t.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Thu, 27 Feb 2014 20:51:36 +0400 |
parents | ba95a443ff1f |
children | 847ea345becb |
comparison
equal
deleted
inserted
replaced
378:de2f7e86866e | 379:f42de3a9fd74 |
---|---|
595 | 595 |
596 again: | 596 again: |
597 do { | 597 do { |
598 $buf = raw_read($sess->{socket}); | 598 $buf = raw_read($sess->{socket}); |
599 } until (defined $buf || $tries++ >= $maxtried); | 599 } until (defined $buf || $tries++ >= $maxtried); |
600 | |
601 $buf = '' if !defined $buf; | |
600 | 602 |
601 for ($skip = 0; $skip < length $buf; $skip += $length + 8) { | 603 for ($skip = 0; $skip < length $buf; $skip += $length + 8) { |
602 my $type = unpack("\@$skip B", $buf); | 604 my $type = unpack("\@$skip B", $buf); |
603 $length = hex unpack("\@$skip x5 H6", $buf); | 605 $length = hex unpack("\@$skip x5 H6", $buf); |
604 if ($type == 0) { | 606 if ($type == 0) { |