From ac28252d53086ef384d366ce6785b5ece2f11bb7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 22 Feb 2008 18:32:56 +0000
Subject: [PATCH] side porting Windows testing fix

---
 docs/changelog/7.x.x.txt | 1 +
 t/lib/WebGUI/Test.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 0789dca4e..7b822e1f3 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,5 +1,6 @@
 7.5.3
  - prevent HTML and Macro injection in usernames
+ - fixed: Running WebGUI Tests on Windows (William McKee, Knowmad Technologies)
 
 7.5.2
  - add: Auth modules now accept a "returnUrl" form parameter when logging in
diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 17f47b6cb..33c98284b 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -89,7 +89,8 @@ BEGIN {
     $WEBGUI_ROOT = File::Spec->canonpath($WEBGUI_ROOT);
     $WEBGUI_TEST_COLLATERAL = File::Spec->catdir($WEBGUI_ROOT, 't', 'supporting_collateral');
 
-    $WEBGUI_LIB  ||= File::Spec->catpath( (File::Spec->splitpath($WEBGUI_ROOT))[0], $WEBGUI_ROOT, 'lib' );
+    my ($volume,$directories) = File::Spec->splitpath( $WEBGUI_ROOT, 'no_file' );
+    $WEBGUI_LIB ||= File::Spec->catpath( $volume, $directories, 'lib' );
 
     push (@INC,$WEBGUI_LIB);