fix die() message
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@870 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
2665f1f304
commit
c076c10eae
@ -23,7 +23,7 @@ sub handler {
|
|||||||
my Apache2::Connection $c = shift;
|
my Apache2::Connection $c = shift;
|
||||||
$c->client_socket->opt_set(APR::Const::SO_NONBLOCK => 0);
|
$c->client_socket->opt_set(APR::Const::SO_NONBLOCK => 0);
|
||||||
|
|
||||||
die "SetEnv QPSMTPD_CONFIG must be given" unless $ENV{QPSMTPD_CONFIG};
|
die "\$ENV{QPSMTPD_CONFIG} must be given" unless $ENV{QPSMTPD_CONFIG};
|
||||||
|
|
||||||
my $qpsmtpd = Qpsmtpd::Apache->new();
|
my $qpsmtpd = Qpsmtpd::Apache->new();
|
||||||
$qpsmtpd->start_connection(
|
$qpsmtpd->start_connection(
|
||||||
|
Loading…
Reference in New Issue
Block a user