Update CPANPLUS to 0.83_10

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 05_CPANPLUS-Internals-Fetch.t

diff --git a/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t b/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
index 01f32fa..9d648fc 100644 (file)
--- a/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
+++ b/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
@@ -76,25 +76,16 @@ isa_ok( $mod,  'CPANPLUS::Module' );
     ### create a file URI. Make sure to split it by LOCAL rules
     ### and JOIN by unix rules, so we get a proper file uri
     ### otherwise, we might break win32. See bug #18702
-
-    my $cwd = cwd();
-    my $in_file;
-
-    if ($^O eq 'VMS') {
-        $in_file = File::Spec->catfile($cwd, $base);
-        ### Force UNIX syntax on VMS
-        $in_file = VMS::Filespec::unixify($in_file);
-    } else {
-        $in_file = File::Spec::Unix->catfile(
-                          File::Spec::Unix->catdir(
-                              File::Spec->splitdir( $cwd ),
-                          ),
-                          $base
-                      )
-    }
-
+    my $cwd     = cwd();
+    my $in_file = $^O eq 'VMS'
+        ? VMS::Filespec::unixify( File::Spec->catfile($cwd, $base) )
+        : File::Spec::Unix->catfile(
+              File::Spec::Unix->catdir( File::Spec->splitdir( $cwd ) ),
+              $base
+          ); 
+          
     my $target  = CREATE_FILE_URI->($in_file);
-                  
+
     my $fake    = $cb->parse_module( module => $target );
     
     ok( IS_FAKE_MODOBJ->(mod => $fake),