Mercurial > hg > nginx-tests

comparison stream_ssl.t @ 1102:89d7d4d1be40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespace fixes.
author Andrey Zelenkov <zelenkov@nginx.com>
date Wed, 28 Dec 2016 16:28:33 +0300
parents 534d209f6ae4
children 8ef51dbb5d69
comparison
equal deleted inserted replaced
1101:78cb8e66b6bc 1102:89d7d4d1be40
186 socket($s, &AF_INET, &SOCK_STREAM, 0) or die "socket: $!"; 186 socket($s, &AF_INET, &SOCK_STREAM, 0) or die "socket: $!";
187 connect($s, $dest_serv_params) or die "connect: $!"; 187 connect($s, $dest_serv_params) or die "connect: $!";
188 188
189 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!"); 189 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!");
190 Net::SSLeay::set_session($ssl, $ses) if defined $ses; 190 Net::SSLeay::set_session($ssl, $ses) if defined $ses;
191 Net::SSLeay::set_fd( $ssl, fileno($s)); 191 Net::SSLeay::set_fd($ssl, fileno($s));
192 Net::SSLeay::connect($ssl) or die("ssl connect"); 192 Net::SSLeay::connect($ssl) or die("ssl connect");
193 return ($s, $ssl); 193 return ($s, $ssl);
194 } 194 }
195 195
196 ############################################################################### 196 ###############################################################################