Place a 5 second timeout on the SMTP object -- this makes running setup bearable without an SMTP server (the default timeout is 2 minutes).

This commit is contained in:
ian%hixie.ch 2001-12-04 12:53:40 +00:00
Родитель 1454dc7651
Коммит 9868c69a29
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -62,7 +62,7 @@ sub init {
sub open {
my $self = shift;
{ local $^W = 0; # XXX shut up warnings in Net::SMTP
$self->handle(Net::SMTP->new($self->host)); }
$self->handle(Net::SMTP->new($self->host, 'Timeout' => 5)); } # XXX hard coded timeout
if (not defined($self->handle)) {
$self->warn(4, 'Could not create the SMTP handle');
}