From 2dbd38f519b98a97d0109edf73e06abd2953bf6b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 4 Feb 2012 14:52:16 -0800
Subject: [PATCH] Make a safe copy of the config file before modifying it. 
 Fixes bug #12322.

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Cache/CHI.pm  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index b06822b30..a29874d7e 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,5 +1,6 @@
 7.10.25
 - fixed #12321: Error while deleting a group.
+- fixed #12322: Cache/CHI stomps on the config file
 
 7.10.24
  - fixed #12318: asset error causes asset manager to fail
diff --git a/lib/WebGUI/Cache/CHI.pm b/lib/WebGUI/Cache/CHI.pm
index f976133c9..2b81f2b43 100644
--- a/lib/WebGUI/Cache/CHI.pm
+++ b/lib/WebGUI/Cache/CHI.pm
@@ -3,6 +3,7 @@ package WebGUI::Cache::CHI;
 use strict;
 use base 'WebGUI::Cache';
 use File::Temp qw/tempdir/;
+use clone qw/clone/;
 use CHI;
 
 =head1 NAME
@@ -92,7 +93,7 @@ sub new {
     # Create CHI object from config
     my $chi;
     unless ( $chi = $session->stow->get( "CHI" ) ) {
-        my $cacheConf    = $session->config->get('cache');
+        my $cacheConf    = clone $session->config->get('cache');
         $cacheConf->{namespace}     = $namespace;
         $cacheConf->{is_size_aware} = 1;