Mercurial > hg > nginx-tests
comparison stream_proxy_protocol.t @ 633:cf89559cd558
Tests: style.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Wed, 15 Jul 2015 23:04:29 +0300 |
parents | 2d9f5f439598 |
children | 824754da4afc |
comparison
equal
deleted
inserted
replaced
632:c8d6f816e094 | 633:cf89559cd558 |
---|---|
69 | 69 |
70 sub stream_get { | 70 sub stream_get { |
71 my ($data, $peer) = @_; | 71 my ($data, $peer) = @_; |
72 | 72 |
73 my $s = stream_connect($peer); | 73 my $s = stream_connect($peer); |
74 my $sockport = $s->sockport; | 74 my $sockport = $s->sockport(); |
75 stream_write($s, $data); | 75 stream_write($s, $data); |
76 | 76 |
77 $data = ''; | 77 $data = ''; |
78 while (my $buf = stream_read($s)) { | 78 while (my $buf = stream_read($s)) { |
79 $data .= $buf; | 79 $data .= $buf; |