------ 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 -------
|
