Notice /var/qmail/control dir (Joe Schaefer)

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@509 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-07-15 21:13:49 +00:00
parent bcbe2ac25f
commit 162cf7d132

View File

@ -90,10 +90,13 @@ sub run {
} }
sub config_dir { sub config_dir {
my $self = shift; my ($self, $config) = @_;
return "$self->{qpdir}/config"; -e "$_/$config" and return $_
for "$self->{qpdir}/config";
return "/var/qmail/control";
} }
sub plugin_dir { sub plugin_dir {
my $self = shift; my $self = shift;
return "$self->{qpdir}/plugins"; return "$self->{qpdir}/plugins";