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...@perlmeister.com



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
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
------------------------------------------------------------------------------
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
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel

Reply via email to