From 75ad1c14ffacbc2ffd1f23d4b770fc88126d5aca Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 10 Apr 2009 16:27:31 +0000
Subject: [PATCH] Only clone the data from Setting.  This prevents trying to
 close the session dbh twice and getting odd warning messages.

---
 t/lib/WebGUI/Test.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 87c51f1c7..b9f430df0 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -129,7 +129,7 @@ BEGIN {
     $SESSION = WebGUI::Session->open( $WEBGUI_ROOT, $CONFIG_FILE );
     $SESSION->{_request} = $pseudoRequest;
 
-    $originalSetting = clone $SESSION->setting;
+    $originalSetting = clone $SESSION->setting->get;
 
 }
 
@@ -149,8 +149,7 @@ END {
             $SESSION->config->delete($key);
         }
     }
-    my $settings = $originalSetting->get();
-    while (my ($param, $value) = each %{ $settings }) {
+    while (my ($param, $value) = each %{ $originalSetting }) {
         $SESSION->setting->set($param, $value);
     }
     $SESSION->var->end;