Mercurial > hg > nginx-tests
comparison stream_upstream_random.t @ 1469:30284bd9ab18
Tests: avoid uninitialized warnings in stream_upstream_random.t.
| author | Sergey Kandaurov <pluknet@nginx.com> |
|---|---|
| date | Wed, 24 Apr 2019 14:52:53 +0300 |
| parents | 875967f737d4 |
| children | 76090a5da00b |
comparison
equal
deleted
inserted
replaced
| 1468:875967f737d4 | 1469:30284bd9ab18 |
|---|---|
| 241 my %ports; | 241 my %ports; |
| 242 | 242 |
| 243 my @s = map { get($port, $uri, start => 1, sleep => 0.1) } (1 .. $n); | 243 my @s = map { get($port, $uri, start => 1, sleep => 0.1) } (1 .. $n); |
| 244 | 244 |
| 245 for (@s) { | 245 for (@s) { |
| 246 if (http_end($_) =~ /X-Port: (\d+)/) { | 246 my $r = http_end($_); |
| 247 if ($r && $r =~ /X-Port: (\d+)/) { | |
| 247 $ports{$1} = 0 unless defined $ports{$1}; | 248 $ports{$1} = 0 unless defined $ports{$1}; |
| 248 $ports{$1}++; | 249 $ports{$1}++; |
| 249 } | 250 } |
| 250 } | 251 } |
| 251 | 252 |