Make a safe copy of the config file before modifying it. Fixes bug #12322.
This commit is contained in:
parent
78159c9795
commit
2dbd38f519
2 changed files with 3 additions and 1 deletions
|
|
@ -1,5 +1,6 @@
|
||||||
7.10.25
|
7.10.25
|
||||||
- fixed #12321: Error while deleting a group.
|
- fixed #12321: Error while deleting a group.
|
||||||
|
- fixed #12322: Cache/CHI stomps on the config file
|
||||||
|
|
||||||
7.10.24
|
7.10.24
|
||||||
- fixed #12318: asset error causes asset manager to fail
|
- fixed #12318: asset error causes asset manager to fail
|
||||||
|
|
|
||||||
|
|
@ -3,6 +3,7 @@ package WebGUI::Cache::CHI;
|
||||||
use strict;
|
use strict;
|
||||||
use base 'WebGUI::Cache';
|
use base 'WebGUI::Cache';
|
||||||
use File::Temp qw/tempdir/;
|
use File::Temp qw/tempdir/;
|
||||||
|
use clone qw/clone/;
|
||||||
use CHI;
|
use CHI;
|
||||||
|
|
||||||
=head1 NAME
|
=head1 NAME
|
||||||
|
|
@ -92,7 +93,7 @@ sub new {
|
||||||
# Create CHI object from config
|
# Create CHI object from config
|
||||||
my $chi;
|
my $chi;
|
||||||
unless ( $chi = $session->stow->get( "CHI" ) ) {
|
unless ( $chi = $session->stow->get( "CHI" ) ) {
|
||||||
my $cacheConf = $session->config->get('cache');
|
my $cacheConf = clone $session->config->get('cache');
|
||||||
$cacheConf->{namespace} = $namespace;
|
$cacheConf->{namespace} = $namespace;
|
||||||
$cacheConf->{is_size_aware} = 1;
|
$cacheConf->{is_size_aware} = 1;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue