From 9fadf621c6d0eba3cf447e0d400054f99b046a3a Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Fri, 17 Aug 2007 10:55:22 +0000
Subject: [PATCH] Fix 01_Module_Load_Conditional.t on Win32 (broken by #31726)

p4raw-id: //depot/perl@31727
---
 lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
index c741678..66a7fe1 100644
--- a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
+++ b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
@@ -55,6 +55,7 @@ use_ok( 'Module::Load::Conditional' );
     } else {
 	@rv_path = File::Spec->splitpath($rv->{file});
     }
+    @rv_path = ($rv_path[0], File::Spec->splitdir($rv_path[1]), $rv_path[2]);
 
     # First element could be blank for some system types like VMS
     shift @rv_path if $rv_path[0] eq '';
-- 
2.7.4