1 files changed, 21 insertions, 21 deletions

diff --git a/cpan/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t b/cpan/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
index 9d648fc38f..7a6b1acb86 100644
--- a/cpan/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
+++ b/cpan/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
@@ -1,6 +1,6 @@
 ### make sure we can find our conf.pl file
-BEGIN { 
-    use FindBin; 
+BEGIN {
+    use FindBin;
     require "$FindBin::Bin/inc/conf.pl";
 }
 
@@ -26,11 +26,11 @@ isa_ok( $mod,  'CPANPLUS::Module' );
 ### fail host tests ###
 {   my $host = {};
     my $rv   = $cb->_add_fail_host( host => $host );
-    
+
     ok( $rv,                    "Failed host added " );
-    ok(!$cb->_host_ok( host => $host),   
+    ok(!$cb->_host_ok( host => $host),
                                 "   Host registered as failed" );
-    ok( $cb->_host_ok( host => {} ),    
+    ok( $cb->_host_ok( host => {} ),
                                 "   Fresh host unregistered" );
 }
 
@@ -38,7 +38,7 @@ isa_ok( $mod,  'CPANPLUS::Module' );
 {   my $where = $cb->_fetch( module => $mod, force => 1 );
 
     ok( $where,                 "File downloaded to '$where'" );
-    ok( -s $where,              "   File exists" );                          
+    ok( -s $where,              "   File exists" );
     unlink $where;
     ok(!-e $where,              "   File removed" );
 }
@@ -46,24 +46,24 @@ isa_ok( $mod,  'CPANPLUS::Module' );
 ### try to fetch something that doesn't exist ###
 {   ### set up a bogus host first ###
     my $hosts   = $conf->get_conf('hosts');
-    my $fail    = { scheme  => 'file', 
+    my $fail    = { scheme  => 'file',
                     path    => "$0/$0" };
-    
+
     unshift @$hosts, $fail;
     $conf->set_conf( hosts => $hosts );
-    
+
     ### the fallback host will get it ###
     my $where = $cb->_fetch( module => $mod, force => 1, verbose => 0 );
     ok($where,                  "File downloaded to '$where'" );
-    ok( -s $where,              "   File exists" );                          
-    
+    ok( -s $where,              "   File exists" );
+
     ### but the error should be recorded ###
     like( CPANPLUS::Error->stack_as_string, qr/Fetching of .*? failed/s,
-                                "   Error recorded appropriately" ); 
+                                "   Error recorded appropriately" );
 
     ### host marked as bad? ###
-    ok(!$cb->_host_ok( host => $fail ),   
-                                "   Failed host logged properly" );    
+    ok(!$cb->_host_ok( host => $fail ),
+                                "   Failed host logged properly" );
 
     ### restore the hosts ###
     shift @$hosts; $conf->set_conf( hosts => $hosts );
@@ -82,23 +82,23 @@ isa_ok( $mod,  'CPANPLUS::Module' );
         : 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), 
+
+    ok( IS_FAKE_MODOBJ->(mod => $fake),
                                 "Fake module created from $0" );
     is( $fake->status->_fetch_from, $target,
-                                "   Fetch from set ok" );                                 
-                                
+                                "   Fetch from set ok" );
+
     my $where = $fake->fetch;
     ok( $where,                 "   $target fetched ok" );
     ok( -s $where,              "   $where exists" );
     like( $where, '/'. UNKNOWN_DL_LOCATION .'/',
                                 "   Saved to proper location" );
-    like( $where, qr/$base$/,   "   Saved with proper name" );                                
+    like( $where, qr/$base$/,   "   Saved with proper name" );
 }