[svn:qpsmtpd] r849 - trunk/t/Test

[ask]

Author: ask
Date: Thu Feb 14 10:57:27 2008
New Revision: 849

Modified:
   trunk/t/Test/Qpsmtpd.pm

Log:
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.


Modified: trunk/t/Test/Qpsmtpd.pm
==============================================================================
--- trunk/t/Test/Qpsmtpd.pm     (original)
+++ trunk/t/Test/Qpsmtpd.pm     Thu Feb 14 10:57:27 2008
@@ -76,7 +76,7 @@
 
 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;
 }