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

[Steve Hay]

Change 31727 by [EMAIL PROTECTED] on 2007/08/17 10:55:22

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

Affected files ...

... //depot/perl/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t#6 
edit

Differences ...

==== //depot/perl/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t#6 
(text) ====
Index: perl/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
--- perl/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t#5~31726~    
2007-08-16 10:05:48.000000000 -0700
+++ perl/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t     
2007-08-17 03:55:22.000000000 -0700
@@ -55,6 +55,7 @@
     } 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 '';
End of Patch.