Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 45:d68b85def521
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(); |