From: Steve Hay <SteveHay@planit.com>
Date: Fri, 17 Aug 2007 10:55:22 +0000 (+0000)
Subject: Fix 01_Module_Load_Conditional.t on Win32 (broken by #31726)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fadf621c6d0eba3cf447e0d400054f99b046a3a;p=p5sagit%2Fp5-mst-13.2.git

Fix 01_Module_Load_Conditional.t on Win32 (broken by #31726)

p4raw-id: //depot/perl@31727
---

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 '';