From d02760090a2d98350be18ed5109f53e6d2e648ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 10 Sep 2002 13:45:25 +0000
Subject: [PATCH] only log config stuff if trace level is 8 or 10 ... (or
 higher)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@69 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 b5535cf..8058d57 100644
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@@ -252,7 +252,7 @@ sub rcpt {
 
 sub get_qmail_config {
   my ($self, $config) = (shift, shift);
-  $self->log(6, "trying to get config for $config");
+  $self->log(8, "trying to get config for $config");
   if ($self->{_config_cache}->{$config}) {
     return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0];
   }
@@ -264,7 +264,7 @@ sub get_qmail_config {
   chomp @config;
   @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
   close CF;
-  $self->log(8, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
+  $self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
   $self->{_config_cache}->{$config} = \@config;
   return wantarray ? @config : $config[0];
 }