Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 45:d68b85def521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: use 127.0.0.1 instead of localhost. Name 'localhost' is ambiguous if ipv6 present on system.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 02 Nov 2008 15:01:41 +0300
parents 1b3c22a87e5d
children 239a346b4913
comparison
equal deleted inserted replaced
44:daa295331acd 45:d68b85def521
210 eval { 210 eval {
211 local $SIG{ALRM} = sub { die "alarm\n" }; 211 local $SIG{ALRM} = sub { die "alarm\n" };
212 alarm(2); 212 alarm(2);
213 my $s = IO::Socket::INET->new( 213 my $s = IO::Socket::INET->new(
214 Proto => 'tcp', 214 Proto => 'tcp',
215 PeerHost => 'localhost:8080' 215 PeerAddr => '127.0.0.1:8080'
216 ); 216 );
217 log_out($request); 217 log_out($request);
218 $s->print($request); 218 $s->print($request);
219 local $/; 219 local $/;
220 $reply = $s->getline(); 220 $reply = $s->getline();