From b74d21102c73514778624d095393a93a62eb3e6b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Jun 2010 11:01:20 -0700
Subject: [PATCH] Temporary config file fix.

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

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index f7ae0df7e..461c4dbbe 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -108,7 +108,7 @@ sub import {
             unless -f _;
         die "WEBGUI_CONFIG path '$config' is not readable by effective uid '$>'.\n"
             unless -r _;
-        $original_config_file = abs2rel( $config, catdir( $CLASS->root, 'etc') );
+        $original_config_file = $config;
     }
     goto &{ $_[0]->can('SUPER::import') };
 }
@@ -382,7 +382,8 @@ sub file {
         OPEN => 0,
         TMPDIR => 1,
     );
-    File::Copy::copy($original_config_file, $config_copy_abs);
+    File::Copy::copy($original_config_file, $config_copy_abs)
+        or die "Error creating temp config file: $!";
     $CLASS->addToCleanup(sub {
         unlink $config_copy_abs;
         undef $config_copy;