# HG changeset patch
# User Andrey Zelenkov <zelenkov@nginx.com>
# Date 1436990669 -10800
# Node ID cf89559cd5581623d75873a026f6d2d11d4e815c
# Parent  c8d6f816e09478a5b84dcc73ace51e2516909f0e
Tests: style.

diff --git a/stream_proxy_protocol.t b/stream_proxy_protocol.t
--- a/stream_proxy_protocol.t
+++ b/stream_proxy_protocol.t
@@ -71,7 +71,7 @@ sub stream_get {
 	my ($data, $peer) = @_;
 
 	my $s = stream_connect($peer);
-	my $sockport = $s->sockport;
+	my $sockport = $s->sockport();
 	stream_write($s, $data);
 
 	$data = '';
diff --git a/stream_proxy_protocol_ssl.t b/stream_proxy_protocol_ssl.t
--- a/stream_proxy_protocol_ssl.t
+++ b/stream_proxy_protocol_ssl.t
@@ -97,7 +97,7 @@ sub pp_get {
 	my ($data, $peer) = @_;
 
 	my $s = http($data, socket => getconn($peer), start => 1);
-	my $sockport = $s->sockport;
+	my $sockport = $s->sockport();
 	$data = http_end($s);
 	return ('data' => $data, 'sp' => $sockport);
 }