[log4perl-devel] Problem with Log::Dispatch::FileRotate-Appender and -d:Profile

[mara r. <mar...@go...>]

Hello,
I just ran into a problem trying to profile one of my perl scripts
using 'perl -d:Profile'.

I cooked it down to this:

---8<---
#!/usr/bin/env perl
# --- crashes when used with -d:Profile

use warnings;
use strict;

use Log::Dispatch::FileRotate;
use Log::Log4perl;

# logging behaviour configuration
my $logconf = q(
    log4perl.logger                        = DEBUG, FileApp
    log4perl.appender.FileApp              = Log::Dispatch::FileRotate
    log4perl.appender.FileApp.filename     = test.log
    log4perl.appender.FileApp.layout       = PatternLayout
    log4perl.appender.FileApp.mode         = append
    log4perl.appender.FileApp.max          = 3
    log4perl.appender.FileApp.utf8         = 1
    log4perl.appender.FileApp.layout.ConversionPattern = %d [%p] %c - %m%n
);

# Initialize logger
Log::Log4perl->init( \$logconf );

# Obtain a logger instance
my $logger = Log::Log4perl->get_logger();

$logger->info('alive');

--->8---

Am I doing something wrong here? It runs without problem without the
'-d:Profile' option. But when I do

$ perl -d:Profile log4perl_test.pl

I get

---8<---
The following parameter was passed in the call to
Log::Dispatch::Output::_basic_init but was not listed in the
validation options: mode
 at /usr/lib/perl5/site_perl/5.10.0/Devel/Profile.pm line 131
    Log::Dispatch::Output::_basic_init(undef, 'mode', 'append',
'name', 'FileApp', 'l4p_post_config_subs', 'ARRAY(0x11d64e0)', 'max',
3, ...) called at
/usr/lib/perl5/site_perl/5.10.0/Log/Dispatch/FileRotate.pm line 32
    Log::Dispatch::FileRotate::new('Log::Dispatch::FileRotate',
'min_level', 'debug', 'filename', 'test.log', 'mode', 'append', 'max',
3, ...) called at
/usr/lib/perl5/site_perl/5.10.0/Log/Log4perl/Appender.pm line 77
    Log::Log4perl::Appender::new('Log::Log4perl::Appender',
'Log::Dispatch::FileRotate', 'name', 'FileApp',
'l4p_post_config_subs', 'ARRAY(0x11d64e0)', 'l4p_depends_on',
'ARRAY(0x1325e30)', 'filename', ...) called at
/usr/lib/perl5/site_perl/5.10.0/Log/Log4perl/Config.pm line 394
    Log::Log4perl::Config::create_appender_instance('HASH(0x133afe8)',
'FileApp', 'HASH(0x11d6438)', 'ARRAY(0x11d64e0)', undef) called at
/usr/lib/perl5/site_perl/5.10.0/Log/Log4perl/Config.pm line 288
    Log::Log4perl::Config::_init('Log::Log4perl::Config',
'SCALAR(0x8db190)') called at
/usr/lib/perl5/site_perl/5.10.0/Log/Log4perl/Config.pm line 36
    Log::Log4perl::Config::init('Log::Log4perl::Config',
'SCALAR(0x8db190)') called at
/usr/lib/perl5/site_perl/5.10.0/Log/Log4perl.pm line 245
    Log::Log4perl::init('Log::Log4perl', 'SCALAR(0x8db190)') called at
log4perl_test.pl line 23
--->8---

Any hints?

Regards
Mara