Select Code to Download

Select or download this

log4perl.logger.Siebel.Srvrmgr.Daemon=DEBUG, A1
log4perl.appender.A1=Log::Log4perl::Appender::File
...
log4perl.appender.A2.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.A2.layout.ConversionPattern=%d %p> %F{1}:%L %M - %m%
+n
log4perl.logger.Siebel.Srvrmgr.ListParser=WARN, A2

Select or download this

sub gimme_logger {

...

    return Log::Log4perl->get_logger('Siebel::Srvrmgr::Daemon');
}

Select or download this

sub run {

...
    weaken($logger);

    # rest of code goes here

Select or download this

sub DEMOLISH {

...
    my $logger = __PACKAGE__->gimme_logger();
    weaken($logger);
    # rest of code goes here

Select or download this

sub logging_cfg {

...
    return $cfg;

}

Select or download this

C:\Temp\memcached>server2.pl
Starting Nagios::Cache::Server...done
...
Ready to accept requests
close() on unopened filehandle FH at C:/strawberry/perl/site/lib/Log/L
+og4perl/Appender/File.pm line 257 during global destruction.
Can't close C:/Temp/perl/project.log (Bad file descriptor) at C:/straw
+berry/perl/site/lib/Log/Log4perl/Appender/File.pm line 282 during glo
+bal destruction.