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

[Mike S. <m...@pe...>]

On Fri, 19 Feb 2010, mara raram wrote:

> 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

Hi Mara,

it's fairly unlikely that this has anything to do with Log4perl or any
other modules used, most likely it's a bug in the Profiler. I personally
prefer

     http://search.cpan.org/~timb/Devel-NYTProf-3.01/

Want to give it a try?

-- Mike

Mike Schilli
m...@pe...


>
> 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
>
> ------------------------------------------------------------------------------
> Download Intel&#174; Parallel Studio Eval
> Try the new software tools for yourself. Speed compiling, find bugs
> proactively, and fine-tune applications for parallel performance.
> See why Intel Parallel Studio got high marks during beta.
> http://p.sf.net/sfu/intel-sw-dev
> _______________________________________________
> log4perl-devel mailing list
> log...@li...
> https://lists.sourceforge.net/lists/listinfo/log4perl-devel