[log4perl-devel] Fwd: Changing the loglevel in another package

[Mike S. <msc...@ao...>]

------ Forwarded message ------
From: Roland Bauer <rol...@ff...>
Date: Tue, 6 Jan 2004 23:29:49 +0100 (Westeurop=E4ische Normalzeit)
Subject: Changing the loglevel in another package
To: log...@li...

Hi,

I've written a test which succeeds when I call get_logger
with "" but fails when I call it using get_logger(). (See
below)

Are there reasons that just get_logger("") should succeed?

Regards,
Roland

################################# START #####################

#!/usr/bin/perl

=3Dhead1 DESCRIPTION

This test changes the logging level in another
package.

get_logger() is WRONG, get_logger("") is OK.

Is this a bug or a feature?

=3Dcut

use strict;

use Test::More;
plan tests=3D>2*4;

use Log::Log4perl qw(:easy);

# I have 0.37 installed ...
$Log::Log4perl::VERSION >=3D 0.37 or warn "Wrong version";

Log::Log4perl->easy_init;

my $level;

for my $level ($DEBUG, $INFO, $WARN, $ERROR) {
     Log::Log4perl->get_logger("")->level($level);
     Pack_A::test_1($level);
}

# The level does not change from $ERROR (as set above)

for my $level ($DEBUG, $INFO, $WARN, $ERROR) {
     Log::Log4perl->get_logger()->level($level);
     Pack_A::test_1($level); # shouldn't this succeed?
     #Pack_A::test_1($ERROR); # this succeeds, shall it?
}

package Pack_A;
use Test::More;
use Log::Log4perl qw(:easy);
sub test_1 {
     my ($level) =3D @_;
     ok($level =3D=3D Log::Log4perl->get_logger("")->level);
}
1;

################################# END #############################


--=20
Roland Bauer
http://www.fff.at/contact/



-------- End of message -------