Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/SMTP.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 daa295331acd
children b5b4271554b0
comparison
equal deleted inserted replaced
44:daa295331acd 45:d68b85def521
20 sub new { 20 sub new {
21 my $class = shift; 21 my $class = shift;
22 22
23 my $self = return $class->SUPER::new( 23 my $self = return $class->SUPER::new(
24 Proto => "tcp", 24 Proto => "tcp",
25 PeerAddr => "localhost", 25 PeerAddr => "127.0.0.1:8025",
26 PeerPort => 8025,
27 @_ 26 @_
28 ) 27 )
29 or die "Can't connect to nginx: $!\n"; 28 or die "Can't connect to nginx: $!\n";
30 29
31 $self->autoflush(1); 30 $self->autoflush(1);