Remove remnants

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@868 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-03-18 19:43:31 +00:00
parent f2e786d34f
commit f475fd19e3

View File

@ -30,7 +30,6 @@ sub handler {
ip => $c->remote_ip, ip => $c->remote_ip,
host => $c->remote_host, host => $c->remote_host,
info => undef, info => undef,
dir => $c->base_server->dir_config('QpsmtpdDir'),
conn => $c, conn => $c,
); );
@ -48,7 +47,6 @@ sub start_connection {
my $self = shift; my $self = shift;
my %opts = @_; my %opts = @_;
$self->{qpdir} = $opts{dir};
$self->{conn} = $opts{conn}; $self->{conn} = $opts{conn};
$self->{conn}->client_socket->timeout_set($self->config('timeout') * 1_000_000); $self->{conn}->client_socket->timeout_set($self->config('timeout') * 1_000_000);
$self->{bb_in} = APR::Brigade->new($self->{conn}->pool, $self->{conn}->bucket_alloc); $self->{bb_in} = APR::Brigade->new($self->{conn}->pool, $self->{conn}->bucket_alloc);