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

we don't call the regular logging infrastructure from the Test module,

Browse Source 
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:
Ask Bjørn Hansen 2008-02-14 18:57:27 +00:00
parent 6a027f4839
commit 43924427fc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/Test/Qpsmtpd.pm
View File

@ -76,7 +76,7 @@ sub plugin_dirs {
sub log { sub log {
my ($self, $trace, $hook, $plugin, @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; $level = $self->init_logger unless defined $level;
print("# " . join(" ", $$, @log) . "\n") if $trace <= $level; print("# " . join(" ", $$, @log) . "\n") if $trace <= $level;
} }