oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lots of DESTROYs

Browse source
This commit is contained in:
Matthew Wilson 2006-01-14 22:26:48 +00:00
parent 5b076ae9e5
commit 3c66a9105f
15 changed files with 197 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Session/ErrorHandler.pm
View file

@ -19,8 +19,6 @@ use strict;
use Log::Log4perl;
use Apache2::RequestUtil;
$Log::Log4perl::caller_depth++;
=head1 NAME
Package WebGUI::Session::ErrorHandler
@ -144,6 +142,22 @@ sub debug {
}
#-------------------------------------------------------------------
=head DESTROY ( )
Deconstructor.
=cut
sub DESTROY {
my $self = shift;
$Log::Log4perl::caller_depth++;
undef $self;
}
#-------------------------------------------------------------------
=head2 error ( message )
@ -304,6 +318,7 @@ sub new {
my $class = shift;
my $session = shift;
unless (Log::Log4perl->initialized()) {
$Log::Log4perl::caller_depth++;
Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );
}
my $logger = Log::Log4perl->get_logger($session->config->getFilename);