| Subject: | Log::Dispatch integration broken |
# The following prints nothing in Log::Log4perl 1.23
perl -MLog::Log4perl=get_logger -e "
$l=get_logger;
$l->add_appender(Log::Log4perl::Appender->new('Log::Dispatch::Screen'));
$l->info('foo')"
# This is probably why it prints nothing
perl -MB::Deparse -MLog::Log4perl=get_logger -e "
$l=get_logger;
$d=B::Deparse->new;
$l->add_appender(Log::Log4perl::Appender->new('Log::Dispatch::Screen'));
print $d->coderef2text($l->{INFO})
"
{
package Log::Log4perl::Logger;
use warnings;
use strict 'refs';
'???';
return undef;
}
# When I fallback to 1.20 it works correctly.
perl -MLog::Log4perl=get_logger -e "$l=get_logger;
$l->add_appender(Log::Log4perl::Appender->new('Log::Dispatch::Screen'));
$l->info('foo')"
INFO - foo
perl -MLog::Dispatch -e "print Log::Dispatch->VERSION"
2.22
perl -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread
(with 5 registered patches, see perl -V for more detail)
Copyright 1987-2007, Larry Wall
Binary build 1004 [287188] provided by ActiveState
http://www.ActiveState.com
Built Sep 3 2008 13:16:37
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.