byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

increase the trace level for the config reading stuff

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@58 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-08 14:12:36 +00:00
parent 5e93c4302a
commit c8698cad53
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd.pm
View File

@ -226,7 +226,7 @@ sub rcpt {
sub get_qmail_config { sub get_qmail_config {
my ($self, $config) = (shift, shift); my ($self, $config) = (shift, shift);
$self->log(5, "trying to get config for $config"); $self->log(6, "trying to get config for $config");
if ($self->{_config_cache}->{$config}) { if ($self->{_config_cache}->{$config}) {
return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0]; return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0];
} }
@ -238,7 +238,7 @@ sub get_qmail_config {
chomp @config; chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config; @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
close CF; close CF;
$self->log(5, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)])); $self->log(8, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
$self->{_config_cache}->{$config} = \@config; $self->{_config_cache}->{$config} = \@config;
return wantarray ? @config : $config[0]; return wantarray ? @config : $config[0];
} }