Re: [log4perl-devel] no custom levels under debug?

[Kevin G. <ke...@go...>]

Ah, it does seem to be a problem, the appender level, later used for the 
threshold, defaults to $DEBUG in appender->new().  So the debug2 message 
is seen as not meeting the default threshold and is dropped.

This is the fix, changing the default appender threshold from DEBUG to 
ALL.  Any objections?  The unit tests pass, is there a threshold 
assumption that I'm overlooking that might cause a problem?

===================================================
diff -u -u -5 -r1.30 Appender.pm
--- lib/Log/Log4perl/Appender.pm        11 Aug 2003 05:18:06 -0000      1.30
+++ lib/Log/Log4perl/Appender.pm        18 Sep 2003 19:18:41 -0000
@@ -76,11 +76,11 @@

      my $self = {
                   appender => $appender,
                   name     => $params{name},
                   layout   => undef,
-                 level    => $DEBUG,
+                 level    => $ALL,
                 };

          #whether to collapse arrays, etc.
      $self->{warp_message} = $params{warp_message};
      if($self->{warp_message} and

===================================================
-- 
Happy Trails . . .

Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA  94706
(510) 525-5217