Mercurial > hg > nginx-tests

comparison stream_proxy_protocol.t @ 633:cf89559cd558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;