we don't call the regular logging infrastructure from the Test module,
so trace level doesn't get set to the default anywhere. Set it to a value here to avoid the uninitialized warnings. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@849 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
6a027f4839
commit
43924427fc
@ -76,7 +76,7 @@ sub plugin_dirs {
|
||||
|
||||
sub log {
|
||||
my ($self, $trace, $hook, $plugin, @log) = @_;
|
||||
my $level = Qpsmtpd::TRACE_LEVEL();
|
||||
my $level = Qpsmtpd::TRACE_LEVEL() || 5;
|
||||
$level = $self->init_logger unless defined $level;
|
||||
print("# " . join(" ", $$, @log) . "\n") if $trace <= $level;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user