Mercurial > hg > nginx-tests
changeset 735:832cd7cc8f53
Tests: made h2.t inner functions anonymous.
No functional changes.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 06 Oct 2015 14:47:49 +0300 |
parents | 78b4e12e6efe |
children | dcbe4c3d6871 |
files | h2.t |
diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/h2.t +++ b/h2.t @@ -2662,7 +2662,7 @@ sub hunpack { my $skip = 0; my ($index, $name, $value); - sub field { + my $field = sub { my ($b) = @_; my ($len, $s, $huff) = iunpack(7, @_); @@ -2670,21 +2670,21 @@ sub hunpack { $field = $huff ? dehuff($field) : $field; $s += $len; return ($field, $s); - } - - sub add { + }; + + my $add = sub { my ($h, $n, $v) = @_; return $h->{$n} = $v unless exists $h->{$n}; $h->{$n} = [ $h->{$n} ] unless ref $h->{$n}; push @{$h->{$n}}, $v; - } + }; while ($skip < $length) { my $ib = unpack("\@$skip B8", $data); if (substr($ib, 0, 1) eq '1') { ($index, $skip) = iunpack(7, $data, $skip); - add(\%headers, + $add->(\%headers, $table->[$index][0], $table->[$index][1]); next; } @@ -2693,12 +2693,12 @@ sub hunpack { ($index, $skip) = iunpack(6, $data, $skip); $name = $table->[$index][0]; - ($name, $skip) = field($data, $skip) unless $name; - ($value, $skip) = field($data, $skip); + ($name, $skip) = $field->($data, $skip) unless $name; + ($value, $skip) = $field->($data, $skip); splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ]; - add(\%headers, $name, $value); + $add->(\%headers, $name, $value); next; } @@ -2706,10 +2706,10 @@ sub hunpack { ($index, $skip) = iunpack(4, $data, $skip); $name = $table->[$index][0]; - ($name, $skip) = field($data, $skip) unless $name; - ($value, $skip) = field($data, $skip); - - add(\%headers, $name, $value); + ($name, $skip) = $field->($data, $skip) unless $name; + ($value, $skip) = $field->($data, $skip); + + $add->(\%headers, $name, $value); next; } }