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

Fix Stow to always return safe copies of stowed data.

Browse source 
And test it.
This commit is contained in:
Colin Kuskie 2008-08-02 22:47:15 +00:00
parent 159f2daf60
commit 19987b53b4
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Session/Stow.pm
View file

@ -109,6 +109,18 @@ sub get {
my $self = shift;
my $var = shift;
return undef if $self->session->config->get("disableCache");
my $ref = $self->{_data}{$var};
if (ref $ref eq 'ARRAY') {
my @safeArray = @{ $ref };
return \@safeArray;
}
elsif (ref $ref eq 'HASH') {
my %safeHash = %{ $ref };
return \%safeHash;
}
else {
return $ref
}
return $self->{_data}{$var};
}