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

don't destroy things that can't be destroyed.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-14 20:33:26 +00:00
parent 6009ead286
commit 742e63e389
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session.pm
View file

@ -116,6 +116,7 @@ sub close {
##Must destroy the logger last! ##Must destroy the logger last!
my %keys = grep { $_ ne '_errorHandler' } keys %{ $self }; my %keys = grep { $_ ne '_errorHandler' } keys %{ $self };
foreach my $object (keys %{$self}) { foreach my $object (keys %{$self}) {
next if ($object eq '_request' || $object eq '_sessionId' || $object eq '_server');
##Don't destroy things that don's exist ##Don't destroy things that don's exist
$self->{$object} and $self->{$object}->DESTROY; $self->{$object} and $self->{$object}->DESTROY;
} }
@ -360,6 +361,7 @@ sub open {
my $config = WebGUI::Config->new($webguiRoot,$configFile); my $config = WebGUI::Config->new($webguiRoot,$configFile);
my $self = {_sessionId=>$sessionId, _config=>$config, _server=>$server}; my $self = {_sessionId=>$sessionId, _config=>$config, _server=>$server};
bless $self , $class; bless $self , $class;
return $self;
$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * $self->setting->get("maxAttachmentSize")) if (defined $request); $self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * $self->setting->get("maxAttachmentSize")) if (defined $request);
return $self; return $self;
} }