[log4perl-devel] no custom levels under debug?

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

I was just trying to create a second debug level under the first one and 
it seems to be ignored.  Can we not create custom levels below DEBUG? 
Is this a known problem, or am I doing something wrong?


====begin code=====================================
use Test;
use Log::Log4perl;

Log::Log4perl::Logger::create_custom_level("DEBUG2", "DEBUG");
Log::Log4perl::Logger::create_custom_level("LITEWARN", "WARN");

#so now we have
#   WARN
#   LITEWARN
#   DEBUG
#   DEBUG2

my $config = <<EOT;
log4j.category.w  = WARN, testbuffer
log4j.category.lw = LITEWARN, testbuffer
log4j.category.d  = DEBUG, testbuffer
log4j.category.d2 = DEBUG2, testbuffer
log4j.appender.testbuffer          = Log::Log4perl::Appender::TestBuffer
log4j.appender.testbuffer.layout   = Log::Log4perl::Layout::SimpleLayout
EOT


Log::Log4perl::init(\$config);

my $w  = Log::Log4perl::get_logger('w');
my $lw = Log::Log4perl::get_logger('lw');
my $d  = Log::Log4perl::get_logger('d');
my $d2 = Log::Log4perl::get_logger('d2');

$w->warn('warn');
$lw->litewarn('litewarn');
$d->debug('debug');
$d2->debug2('debug2');

my $buffer = 
Log::Log4perl::Appender::TestBuffer->by_name("testbuffer")->buffer;

ok($buffer, '/DEBUG2 - debug2/') ;
#appender contains:
#   WARN - warn
#   LITEWARN - litewarn
#   DEBUG - debug
#where is DEBUG2?

BEGIN { plan tests => 1}

====end code=====================================


-- 
Happy Trails . . .

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