From c8698cad53157c01b2307ac0cbd2df5395f6c12b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Sun, 8 Sep 2002 14:12:36 +0000
Subject: [PATCH] increase the trace level for the config reading stuff

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@58 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index ebd8fe2..848e726 100644
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@@ -226,7 +226,7 @@ sub rcpt {
 
 sub get_qmail_config {
   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}) {
     return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0];
   }
@@ -238,7 +238,7 @@ sub get_qmail_config {
   chomp @config;
   @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
   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;
   return wantarray ? @config : $config[0];
 }